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SEQ 2 


SEQ 3 
1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THIS PROGRAM CONTAINS A Ag he a i hs, AND A_LOGIC TEST 
OPTION. “Xt my SELECT TO RUN THE FUNCTION TEST ge LOGIC 


GNOS A THE LOGIC 
TEST ONLY. THE FUNCTION TEST WILL PERFORM A FUNCTIONAL EVALUATION 
OF THE DEVICE. JIT WILL VERIFY THAT THE DRIVES CAN SEEK, THAT 
DATA CAN BE WRITTEN AND READ AND THAT DRIVE STATUS IS CORRECT. 

THE LOGIC TEST WILL ANALYZE DEVICE FAILURES, REPORT FAILING 

FIELD REPLACEABLE UNITS AND PROVIDE EXTENSIVE INFORMATION ON 

THE NATURE OF THE ERROR. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 











PDP=11/21 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30, LA36, VT50, ETC.), LOAD MEDIA DEVICE. 


1.2.2 SOF TWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR 
AS DESCRIBED IN PARAGRAPH 2.0. 





1.3 RELATED DOCUMENTS AND STANDARDS 





XXDP+ USERS MANUAL 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


1.5 ASSUMPTIONS 


THIS DIAGNOSTIC ASSUMES THAT ALL HARDWARE OTHER THAN THE Saye i sane 
a ag A SUBSYSTEM BEING TESTED WORKS PROPERLY. 


RRORS MA 
FUNCTION PROPERLY. 


PORTED IF THE PROCESSOR, MEMORY, ETC., DOES MoT 





SEQ 4 





MEMORY LAYOUT ON 16K MACHINE = XXDP ENVIRONMENT 


ADDRESS 
ee 77777 
: XXDP + MONITOR ; 
¢eweevenenarensessconsnnet 72 000 
i i 
i i 
i DRS i 
i i 
i i 
i i 
"initia ea ce iat ort 4 1 000 
i FUNCTION/LOGIC TEST ! 
: DIAGNOSTIC 
teaewnnwnnnnwewenwennnnonnt 2000 
STACKS 
teawnnnnnwnnnennennnnnnnnt 400 
! VECTOR AREA 
je © 


IN A MACHINE WITH MORE MEMORY FREE SPACE WILL OCCUR BETWEEN 
THE DIAGNOSTIC AND THE DRS. 





CTIONS 


2.1 


i 


THIS IS A_REV A ge ty a eat on Rs lt, INSTRUC= 


ARE LONG 
DESIRED THAT A CHANGE IN THOSE INSTRUCTIONS NOT REQUIRE A RE- 
ASSEMBLY OF ALL SUPERVISOR DIAGNOSTICS. 


HARDWARE QUESTIONS 


THE FOLLOWING SERIES OF QUESTIONS COMPRISE THE PARAMETERS 
NECESSARY TO IDENTIFY EACH FLOPPY DISK SUBSYSTEM. 


RX ADDRESS = 
THIS PARAMETER DEFINES THE BASE BUS ADDRESS FOR THE FLOPPY 
DISK SUBSYSTEM INTERFACE. 


VECTOR ADDRESS - 
THIS PARAMETER DEFINES THE INTERRUPT VECTOR ADDRESS FOR 
THE FLOPPY DISK SUBSYSTEM INTERFACE. 


DRIVE # = ' 
THIS PARAMETER DEFINES THE FLOPPY DISK SUBSYSTEM DRIVE 
NUMBER (0 


echimaas =p 
THIS PARAMETER IS TO BE USED FOR FUTURE EXPANSION. TYPE 
A CARRIAGE RETURN. 


BR-LEVEL - 
THIS PARAMETER DEFINES THE BR-LEVEL OF THE FLOPPY vISK 
SUBSYSTEM INTERFACE. A BR LEVEL OF 0 => 7 WILL BE ACCEPTED. 


SEG 5 
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THE FOLLOWING SERIES OF QUESTIONS ARE INTENDED TO PROVIDE SELECTION 
OF VARIOUS TEST OPTIONS. 


TEST HELP = 
IF ANSWER IS YES “'Y** THEN A 
SHORT HELP DESCRIPTION ON USE OF THIS DIAGNOSTIC 
WiLL BE TYPED. 


LOGIC TEST MODE - wake 
IF ANSWER IS YES "'Y" THEN THE LOGIC TESTS WILL BE DONE. 
THESE TESTS PROVIDE EXTENSIVE TESTING OF THE FLOPPY DISK 
SUBSYSTEM LOGIC. FAILING FIELD REPLACEABLE UNITS WILL 
BE CALLED OUT AND EXTENSIVE ERROR INFORMATION WILL BE 
REPORTED. THE AMOUNT OF ERROR INFORMATION MAYBE SUPPRESSED 
WITH THE “DRS” ""IXE"’ FLAG. 


FUNCTION TEST MODE = 
IF ANSWER IS YES “‘'Y"' THEN THE FUNCTION TESTS WILL BE DONE. 
THESE TESTS PROVIDE A QUICK VERIFICATION THAT THE FLOPPY 
DISK SUBSYSTEM IS FUNCTIONAL, ONLY VERY BASIC ERROR 
REPORTING 15 DONE, MEDIA RELATED ERRORS ARE. IGNORED. 


DEVICE oe THRESHOLD LEVEL 
THE DEVICE FATAL THRESHOLD Any (DFTL) IS re SET=1. 
THIS THRESHOLD LEVEL EQUALS THE NUMBER OR HARD ERRORS THAT 
WILL CAUSE A DEVICE FATAL ERROR WHEN THE DRS “EVL** FLAG IS SET. 


NON-EXISTENT MEMORY ADDRESS - 
THIS ADDRESS IS USED BY THE DIAGNOSTIC TO TEST THE RX 
pees TO DETECT pore yh ENT MEMORY (VIA BUS TIME 
OUT). THIS IS ONLY TESTED DURING THE NON EXISTENT MEMORY 
ov née ant STANDARD 160000 DIAGNOSTIC ADDRESS IS USED 


EXTENDED ADDRESS BITS - 
THESE BITS ARE USED DURING THE NPR & NON EXISTENT MEMORY 
TESTS TO TEST THE RX EXTENDED MEMORY CAPABILITIES. BITS 
13 8 ARE SET IN THE RXCS REGISTER CORRESPONDING TO 
BITS 1 & O SET BY THE USER. 


TEST CONTROL FLAGS - 
IF a IS YES ‘’y'', THEN THE FOLLOWING QUESTION WILL BE 


PRINT ONLY 10 DATA ERRORS & CONTINUE | 
IF THIS QUESTION IS ANSWERED NON’. THEN ALL ERRORS IN THE 
RX DATA BUFFER WILL BE PRINTED. A YES ANSWER TY" WILL. CAUSE 
ONLY THE FIRST 10 BYTES IN ERROR TO BE PRINTED. 


telnet ceeennieeempeeedtineetieietinmemetinmenenanmemeneetie tie tae ea 


SEG 6 


ERROR INFORMATION 


THIS PROGRAM HAS THREE TYPES OF ERROR CLASSIFICATIONS; SYSTEM 
FATAL, DEVICE FATAL, AND HARD ERRORS. 


SYSTEM FATAL ERRORS 


SYSTEM FATAL ERRORS ARE USED TO INDICATE THAT AN ERROR WAS 
DETECTED BY THE DIAGNOSTIC SUPERVISOR IN RELATION TO LOADING/ 
CONTROLLING THE DIAGNOSTIC PROCESS. WHEN A SYSTEM FATAL ERROR 
IS DETECTED THE UNIT IS USUALLY DROPPED. 


THE ooh OF EACH ERROR IS SUCH THAT IT SHOULD BE SELF - 
EXPLANATORY. HOWEVER, THE MESSAGES UTILIZE SOME TERMS THAT 

ARE SPECIE LC TO THE FLOPPY DISk SUBSYSTEM, AND MAY REQUIRE SOME 
GETTING USE TO. 


DEVICE FATAL ERRORS 


DEVICE FATAL ERRORS ARE A RESULT OF: 


1. REACHING A DEVICE FATAL THRESHOLD LEVEL (° gh Be it. LEVEL 
IS INITIALLY SET=1, BUT MAY BE MODIFIED BY THE OPERATOR. AN 


"DVTL"' =1 WILL CAUSE 1 HARD ERROR TO BE CLASSIFIED A DEVICE 
FATAL ERROR. - 


2. AN ERROR THAT IS CONSIDERED FATAL TO THE DEVICE, BUT TESTING 


WILL CONTINUE. 


HARD ERRORS 


HARD ERRORS ARE A RESULT OF: A NON-RECOVERABLE ERROR 


SEQ 7 


3.5.1 


3.5.2 


ERROR PRINTOUT FORMAT 


EACH ERROR WILL BE PRINTED OUT USING THE STANDARD ‘‘DRS'* HEADER. 
FUNCTION TESTS 


THE SECOND LINE PRINTED OUT WILL GIVE THE TEST TITLE 
THE THIRD LINE PRINTED OUT WILL IDENTIFY THE ERROR. IF IT 
IS A CSR ERROR THE ACTUAL AND EXPECTED RESULTS WILL BE DISPLAYED. 


EXAMPLE ERROR PRINTOUT: 
gn Be HRD ry" tet ON UNIT 01 TST 010 SUB COO PC:003476 


ING = 
CSR= ERR 
REG ACTUAL=005520 
REG EXPECT=037565 


LOGIC TESTS 


THE SECOND AND THIRD LINES WILL BE PRINTED AS DESCRIBED FOR 

THE FUNCTION TESTS. 

DEPENDING ON THE TYPE OF ERROR agit nn! ACTUAL AND EXPECTED 

a ge WILL BE DISPLAYED. THEN THE res). ene OUT WHICH ARE 
THE MOST LIKELY FIELD REPLACEABLE UNITS ‘‘FRU'S’* THAT ARE 

FAILING. ALL CURRENT DEVICE REGISTERS ARE THEN DISPLAYED, 

INCLUDING A DATA BUFFER DUMP IF DATA WAS BAC. 


EXAMPLE ERROR PRINTOUT: 


CNRXFAO DEV FTL ERR 00019 ON tt 01 TST 024 SUB 000 PC:003476 
WRD CNT INTEGRITY PRT:1 = LGC TST 
WORD COUNT ERROR 
REG ACTUAL=000020 
REG EXPECT=000000 


POSSIBLE ot *“FRU'S"': 
CONTROLLER = M7744 
INTERFACE = M8256 


UNIT#1 RXCSR=014440 wig CMD=000437 =>READ ERR CODE 
oy Bo So =>WORD CNT 


CUR TRK DVO=76. CUR TRK DRV1= 0. 
TARGET TRK =76. TARGET SEC =10. SOFT STAT=060 BAD TRK=15. 


SEQ 8 


ne 





PrXFORMANCE AND PROGRESS REPORTS 


NONE 


DEVICE INFORMATION 


DEVICE REGISTERS 


! <FUNCTIOND: 
115 i14 ! 13! 121 11! 10! 09 08! 07!06 105 104 !03 io2 101 !00 ! 


RXCS: TERR!INT!XM !XM IRX2!  !SIDIDEN!TR !IE !DON!ORV!FUN!FUN!FUN!GO ! 


RxwC: ' xX XK K K KX K XK XK! WORD COUNT i 


RXBA: ! BUS _ADDRESS i 


eeeceses | eaccccescceneccocs. ny | 
RXES: }K!K!IX! x —- ; SID! DRV:DRV: DEL : DSK: DEN: AC LINT!SID!CRC! 
2h ot oe !OVF!#1 !41 IRDY!DAT!IDEN!ERR!LOW!DON!RDY! ! 


RXTA: 'X KX K K KX K K KIO! TRACK ADDRESS i 


RXSA: !K MWK WK XK X KX X X!0!0! 0! SECTOR ADDRESS ! 


RXDB: DATA BUFFER i 


READ ERROR CODE REGISTERS = (SEE LABLE ‘‘XERUUT’') 


{ ‘ t i] i] 
WORD !15 !14 ! 13! 12! 11! 10! 09! 08! 07!06 '05 !04 !03 '02 !01 !00! 


ewes e sey eee pooee Pesce pose tptoeotoeosepaoscsfpowspfeas Gi. wEfesepfesetoeunepoesetesatace ' 


vw 3 WORD COUNT . ERROR CODE i 


#2! CURRENT TRACK DRV #1 : CURRENT TRACK DRIVE #0 i 


ewenaes efwmoeaefeeopPYecepowrepPoees}posepfosce}eeapfre@m=a}foeantoeace}praeespoese teoeeteoeotoce! ' 


#3! vaneeT SECTOR : TARGET TRACK i 


ciemnninbantwnns: Se $¢eeet}fore}oeo}ptoeseafpoeeetoenfpfocoefpfesofposee}pocaetoes ' 


#4 ! BAD TRACK-ONLY VALID IF 'UNT!DVI!HD !DVO! X ! xX ! xX ILCD! 
ERRCODE=150 ISEL!DEN/LD !DEN! ! i! iDEN! 


SEQ 9 


DEVICE PROTOCOL 


RX02 FUNCTIONAL PROCESS 


i FUNCTION : i 
i i CODE BIT i i FUNCTION PROCEDURE (PROTOCOL) 


i i 


1 

(+ 000 | FILL BUFFER ! Function Word --->TR=-=>WC==->TR=-=>BA===>DONE 
i 001 EMPTY BUFFER Function Word ===>TR===>WC--=>TR=-=>BA===>DONE 
i 010 WRITE SECTOR ; Function Word -=->TR=-=>SA--=>TR=-=>TA===>DONE 
es : READ SECTOR Function Word -==>TR-==>SA=-=>TR===>TA=-=>DONE 
i 100 ! SET DENSITY ; Function Word --->TR-==>VW--=>DONE 
' 101 ! READ MAINT. | Function Word -=->DONE 
i “STATUS 
' 110 ! WRITE SECTOR ! Function Word --=>TR=-->SA--=>TR=-->TA===>DONE | 
: ! with deleted ! ' 
| ; data | 
' 111 >! READ ERROR ! Function Word --->TR--->BA--->DONE i 
CODE : : 
Salaries Sreasteetnedieeriietesteinatiitetestesbaienk detedkedaaeenetetintie tekedteteteieteaeieedetememetametedeetetateatemeteeetataatatadeeteketeeak a 


wait for TR BIT 
wait for DONE BIT 
BUS ADDRESS (output to 


BA = RX) 

VW = je PE WORD (output to RX) 
WC = WORD COUNT (output to RX) 

SA = SECTOR ADDRESS (output to RX) 

TA = TRACK ADDRESS (output to RX) 


SEQ 10 


SEQ 11 
5.3 DEVICE HARDWARE CONFIGURATION 


RERKEREREKEE TEE 
L * 
S$ * M8029 * 
ee BUS * 
B * INTERFACE *<=--=>! 
u(t * : 
Ss RERREEEEEREEERE ! 
1 
: 
! RHEKKKKEKKERK EE 
‘ *® * 
! * M7744 * 
0! R<eeeree= . 7 & 
: * CONTROLLER * 
: REREREEEEKEEEERE 
= a 
ie : 
REREEREREREEEEE . & ! 
U * ; 4 
N * M8256 % . % 
I * R i. RERKKEKKEEKEKEEE 
B * UNIBUS %<====>! | * 
uU * ! * M7745 * 
S KERRERREEEREREE ' * R/W * 
: * ELECTRONICS * 
' * * 
' RERKEEKEEREKEEK 
‘ A 
i ! 
! i 
! ! (oS ee ee Oe Se ee 
i ! 
V 
' REEEREEEEEREEKE « KEKEEEEEKEEEEEE 
' * * * 
i * DRIVE * * DRIVE e 
: * #0 * * #1 * 
! % * * % 
' RERAEAEEEREEEKEEEE KEREEEEEEEEEEEE 
' a 
’ § 
REREEEEEEEEEEEE ' ' 
* * ! ' 
* POWER * ° : 
a SUPPLY le eeeoeeasaennecanes ' Seo enwee Wo an GP Ge OD Oe oe a a ' 
* H771 
Yr * 
REKKEEKKEKEEERE 
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SEQ 12 | 


6.0 TEST SUMMARIES 


TEST 1 = INITIALIZE = FNC TST 
‘sete VERIFY THAT AN RX INITIALIZE WILL RETURN THE DEVICE TO A VALID 


acini 

- DO -; INITIALIZE 

- IF RX_ERR BIT IS SET REPORT ERROR 
CALL PROGAMMED INITIALI 

- IF RX ERR BIT IS SET REPORT ERROR 


eum 
° 


TEST 2 = READ ERROR CODE = FNC TST 


TEST TO VERIFY THAT THE DEVICE WILL COMPLETE A READ ERROR CODE COMMAND 
WITHOUT ENCOUNTERING AN ERROR. 


DESCRIPTION: 
1. CALL roan eat INITIALIZE 
- IF RX ERR BIT IS =e REPORT ERROR 
CALL READ ERROR 
- IF RX ERR BIT IS SET REPORT ERROR 


Suits 
. 


TEST 3 = FILL BUFFER = FNC TST 
TEST TO VERIFY THE DEVICE BUFFER WILL FILL WITH NO RESULTING ERROR. 
DESCRIPTION: 
1.CALL FILL BUFFER 
2. IF RX ERR BIT IS SET REPORT ERROR 
TEST 4 = EMPTY BUFFER = FNC TST 
TEST TO VERIFY THE DEVICE BUFFER WILL EMPTY WITHOUT ERRORS. 
DESCRIPTION: 
1. CALL EMPTY BUFFER 
2. IF RX ERR BIT IS SET REPORT ERROR 
TEST 5 = READ STATUS = FNC TST 


TEST TO VERIFY THAT A DEVICE MAINTENANCE READ STATUS (RXES) COMMAND 
WILL EXECUTE WITHOUT ERROR. 


DESCRIPTION: 
1. CALL READ STATUS 
2. IF RX ERR BIT IS SET REPORT ERRuR 





-———_--_ —--_--—-- ne 


SEQ 13 


| TEST 6 = FILL & EMPTY BUFFER = FNC TST 


TEST TO VERIFY THE DEVICE BUFFER DATA IS VALID AFTER A FILL/EMPTY 
BUFFER COMMAND SEQUENCE. 


| 
| 
| DESCRIPTION: 
1. SETUP ong ly PATTERN 
2. tek FILL BUF 
3. IF RX _ERR BIT. IS SET REPORT ERROR 
4. CALL XEMPTY UFFER 
5. IF RX ERR BIT IS SET REPORT ERROR 
6. CALL DATA CHECK 


TEST 7 = READ & WRITE SECTOR = FNC TST 
ay! —_ THE DEVICE WILL READ AND WRITE IN BOTH DENSITIES WITHOUT 





DESRIPTION: 
1. SETUP TO DO TEST IN WRONG DENSITY 
. cau WRITE SECTO 
- IF RX ERR BIT_IS NOT SET REPORT ERROR 
4. CALL READ SECTO 
- IF _RX ERR BIT IS NOT wal REPORT ERROR 
6. SETUP CORRECT DENSITY 
7. CALL WRITE SECTOR 
8. IF RX ERR BIT _IS SET REPORT ERROR 
9. CALL READ SECTO 
10. IF RX ERR BIT IS SET REPORT ERROR 
| 


TEST 8 = WRITE SECTOR DELETED DATA = FNC TST 


TEST TO VERIFY THAT THE DEVICE WILL WRITE A DELETED DATA MARK ON THE 
DISKETTE WITHOUT ERROR. 


DESCRIPTION: 
1. SETUP TEST TO CORRECT DENSITY AND DELETED DATA MODE 
2. CALL WRITE SECTOR DELETED DATA 
3. IF RX ERR BIT IS SET REPORT ERROR 
CALL READ SECTOR 
T IS_SET REPORT ERROR 
DATA MO 


SECTOR (CLEAR DETETED DATA MARK) 
F RX ERR BIT IS SET REPORT ERROR 


CON Wis 

se 8 

oO 
> 
mn 
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TEST 9 = SET DENSITY = FNC TST 


y 3 UR VERIFY THE DEVICE WILL CHANGE [ENSITIES WITHOUT INCURRING AN 


DESCRIPTION: 
1. SETUP DENSITY = DISK DENSITY 
g- CA CALL SET DENSITY 
- IF RX ERR BIT IS SET REPORT ERROR 
. a RE “4 SECTOR 
- IF_RX ERR BIT IS SET OR DENSITY NOT CORRECT REPORT ERROR 
. ° Be ett stueit = OPPOSITE DISK DENSITY 
- IF RX_ERR BIT IS SET REPORT ERROR 
. a ator SECTOR 
- IF_RX ERR BIT IS SET OR Ties hed NOT CORRECT REPORT ERROR 
° SETUP DENSITY = DISK DENSITY 
- CALL SET DENSITY 
- IF RX ERR BIT IS SET REPORT ERROR 


TEST 10 = POSITIONING = FNC TEST 


TEST TO VERIFY i ee WILL CHANGE SECTORS AND TRACKS WITHOUT 
INCURRING AN ERROR 


pean 
- SETUP RANDOM TRACK oth ing AND DENSITY = DISK DENSITY 
- CALL GET A_TRACK & SECTO 
. ok READ SECTOR 

IF RX ERR BIT IS SET REPORT ERROR 
5. DO 2. => 4. UNTIL 76. TRACKS DONE 


sun 


TEST 11 


CSR BITS - LGC TST 


TEST TO VERIFY THAT THE READ/WRITE BITS OF THE CONTROL AND STATUS REG- 
ISTER CAN BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE AS EXPECTED. 


DESCRIPTION: 
1. ny RX CSR WITH 1°S 
. K_& REPORT THAT ALL BITS THAT SHOULD SET, DO SET 
. (OAD RX CSR WITH 
4. ee 8 yee THAT ALL BITS THAT SHOULD NOT BE SET, 


TEST 12 = DBR BITS = LGC TST 


TEST TO VERIFY THAT THE READ/WRITE BITS OF THE DATA BUFFER REGISTER 
CAN BE WRITTEN INTO AND READ AS EXPECTED. 


DESCRIPTION: 

1. WRITE RX DBR WITH ALL 1°S 
CHECK & REPORT ALL ‘als THAT SHOULD & SHOULD NOT BE SET 

s° § WIRTE RX DBR WITH ' 

a: CHECK & REPORT-ALL BITS THAT SHOULD & SHOULD NOT BE SET 


—) 
n” 





--—-- oe 


ee ee 






















TEST 13 = CSR-DBR COMMON BYTE = LGC TST 


TEST TO VERIFY THAT THE LOWER BYTE OF THE RXCS MAPS INTO THE RXDB AND 
THEREFORE CHECK WRITE ONLY BITS OF THE RXCS. 


DESCRIPTION: 
1. LOAD RX CSR LOW BYTE WITH ALL 1°S (EXCEPT BIT#0) 
2. tote & REPORT ‘Bite DBR LOW BYTE NOT EQUAL TO ALL 1°S 


AD E H ALL 0°S 
4. CHECK g REPORT IF RX DBR LOW aye NOT EQUAL TO ALL 0°S 


TEST 14 = BUS INITIALIZE = LGC TST 
TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A BUS INITIALIZE. 


DESCRIPTION: 
1. ISSUE BUS INITIALIZE 
2. CHECK & REPORT IF ERROR BIT OR AC LOW BIT ARE SET OR IF DONE 
BIT IS NOT SET 


TEST 15 = PROGRAMMED INITIALIZE = LGC TST 


TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A PROGRAMMED 
INITIALIZE. 


DESCRIPTION: 
1. CALL PROGRAMMED INITIALIZE 
2. CALL DEVICE STATE CHECK 
3. CHECK & REPORT ERRORS 


TEST 16 = POWER FAIL = LGC TST 
TEST TO VERIFY THAT THE ACLOW CIRCUITS OPERATE AS EXPECTED. 


DESCRIPTION: 
1. IF MANNUAL ee eee ALLOWED ASK OPERATOR TO POWER DOWN RX 
2. IF POWERED DOWN, THEN CHECK & REPORT IF AC LOW BIT NOT SET 
3. ASK OPERATOR TO POWE RX 


R UP 
4. IF POWERED UP, THEN INITIALIZE, CHECK & REPORT IF AC LOW BIT SET 


TEST 17 = CONTROLLER-INTERFACE = LGC TST 


TEST TO VERIFY THAT THE INTERFACE BOARD STATE SEQUENCER IS FUNCTIONAL. 
ALSO TO VERIFY THE CONTROLLER-INTERFACE HANDSHAKE BY TRYING FUNCTIONS 
WITH MINIMUM READ/WRITE BOARD INVOLVEMENT. 


DESCIRPTION: 
1. CALL READ ERROR CODE 

; IF ERROR, THEN REPORT ERROR 
> CALL FILL BUF 
4. IF ERROR THEN REPORT ERROR 
5. CALL EMPTY B 

6. IF ERROR THEN. EEPORT ERROR 
7. CALL READ STATUS 

8. IF ERROR, THEN REPORT ERROR 


SEQ 15 


TEST 18 = NPR = LGC TST 
TEST TO VERIFY THAT THE NPR LOGIC WILL STORE A WORD IN MEMORY. 


DESCRIPTION: 
. SETUP MEMORY LOCATION 
» CALL READ ERROR CODE (TO WRITE OVER LOCATION) 
; IF ERROR, THEN REPORT NPR ERROR 
: SETUP BUFFER AREAS BEGIN, END & END+1 


4 

L FILL BU 
6. IF ERROR, THEN REPORT ERROR 
i. CALL EMPTY BUFFER 
9 


SEQ 16 


- IF ERROR, THEN REPORT ERR 
. CHECK BUFFER AREAS BEGIN e END SHOULD CHANGE & » ants SHOULD 
NOT, REPORT AS NPR ERROR, IF CONDITIONS NOT MET 


TEST 19 = NPR NON-EXISTENT MEM = LGC TST 


TEST TO VERIFY THAT THE NPR NON-EXISTEND MEMORY LOGIC WILL TIME OUT 
WHEN GIVEN AN ILLEGAL ADDRESS. 


DESCIRPTION: 
1. SETUP BUS TRAPS AND NONEXSISTANT MEMORY ADDRESS 
CALL READ ERROR CODE 
3. IF RX CSR ERROR BIT OR RX ESR NXM BIT NOT SET, THEN CALL ERROR 
- CALL INITIALIZE seeeee RX ERROR) 
5. CLEAR BUS TRAP VECTOR 


eur 


TEST 20 = INTERRUPT = LGC TST 


TEST TO VERIFY THAT THE INTERRUPTS CAN BE SET AND THAT THE DEVICE 
RESPONDS AS EXPECTED. 


DESCRIPTION: 
1. SET PROCESSOR PRIORTY = 7 (NO bb Sa ht 
2. SET RX INTERRUPT BIT & SETUP LOWER PRIORI 
3. CALL WATCH TO LOWER PROCESSOR PRIORITY & UALT FOR INTERRUPT 
4. CALL ERROR IF DID NOT_INTERRUPT 
5. CLEAR RX INTERRUPT BIT 


TEST 21 = PRIORITY LVL = LGC TST 
TEST TO VERIFY THAT THE DEVICE PRIORITY IS SET TO THE CORRECT LEVEL. 


DESCRIPTION: 
1. SETUP PROCESSOR PRIORITY = 6 (NO INTERRUPTS) 
g- D DO SET PROCESSOR PRIORITY 
- SET RX_INTERRUPT 
IF fh agro OCCURED, THEN CHECK LEVEL & REPORT IF PROCSSOR 
PRIORITY NOT LOWER 


X 
IF INTERRUPT DID NOT OCCUR, THEN SETUP NEXT LOWER PROCESSOR 
PRIORITY & START AT 2. AGAIN 


5 





E 2 





TEST 22 = INITIALIZE CONTROL = LGC TST 
TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE INITIALIZE. 


DESCRIPTION: 
1. CALL PROGRAMMED INITIALIZE 
2. IF ERROR, THEN REPORT ERROR 
TEST 23 = DATA BUF INTEGRITY = LGC TST 
TEST TO VERIFY ALL BITS OF DATA BUFFER, VARIOUS PATTERNS WILL BE USED. 


DESCRIPTION: 


1. SETUP RANDOM DATA PATTERN 
2. CALL FILL BUFFER 

3. IF ERROR, THEN REPORT ERROR 
4. CALL EMPTY 

5. IF ERROR, THEN REPORT ERROR 
6. CALL DATA CHECK 

7. SETUP NEW DATA PATTERN 


8. DO 2. => 7. UNTIL ALL DATA PATTERNS DONE 


TEST 24 = WRD CNT INTEGRITY = LGC TST 


3 TO VERIFY ALL BITS OF WORD COUNT REGISTER AND CHECK THAT EXCEEDING 
THE WORD COUNT FOR DISKETTE DENSITY WILL BE DETECTED. 


seamete ay 
- SETUP i ke pene = 128. 


> CALL FILL 
> IF ERR THEN REPORT ERROR 
~ CALL READ ER ERROR CODE 

; IF ERROR, THEN REPORT ERROR 
; IF RX WORD COUNT NOT = 5 THEN CALL ERROR 

4 DECREMENT WORD COUNT TO RX, DO 2. => 6. UNTIL WORD COUNT TO RX 


NOME UN 


TEST 25 = CONTROLLER-READ*WRITE ELECT = LGC TST 


TEST TO VERIFY MINIMAL CONTROLLER BOARD-READ/WRITE ELECTRONICS BOARD 
INTERFACE VIA INITIALIZE OF A SELECTED DRIVE. 


DESCRIPTION: | 
PROGRAMMED INITIALIZE 

et ERROR THEN REPORT ERROR 

CALL READ ERROR CODE 

IF ERROR, THEN REPORT ERROR 


—s 
ee 


4. 


SEQ 17 


F 2 


















TEST 26 = READ SECTOR-PRT:1 = LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


ss 


: 


SETUP DENSITY = DISK DENSITY 
- C AD 33 OR 
. oe 
4. IF _ERROR, THEN REPORT 
5. SETUP 


6 D 
7. CALL READ ERROR CODE 
8. IF ERROR, THEN REPORT ERROR 


TEST 27 = POSITIONING = LGC TST 


TEST TO VERIFY THAT THE DRIVE WILL READ THE HEADERS ON ALL TRACKS OF 
THE DEIVE AS EXPECTED. 


DESCRIPTION: 
1. SETUP RANDOM TRACKS MODE 
2. CALL GET A TRACK 


Ww 
_ 

o 
= 
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> 
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ERROR CODE 
TRACK OR OTHER ERROR, THEN REPORT ERROR 
O02 => 5. UNTIL 76. TRACKS DONE 


One 
ee 


TEST 28 = WRITE SECTOR-PRT:1 = LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2 TE SECTOR 

3. HEN REPORT ERROR 

4. Pe unite sac OPPOSITE DISK DENSITY 
IF NO DENSITY ERROR, THEN REPORT ERROR 


EE ec i a a 


SEQ 18 


a ' 
on i 


SEQ 19 
TEST 29 = DELETED DATA WRITE PRT:1 = LGC TST 


| TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
| HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. 





ccneamaatd a 
- SETUP DENSITY = ie DENSITY 
° at uk DELETED DATA MODE 
° ae WRITE SECTOR 
4. IF LREAS hey REPORT ERROR 


5 a AD SECT 
6. IF CSR D a A gs BIT NOT SET, THEN REPORT ERROR 
7. CLEAR DELETED DAT 

8. CALL WRITE SECTOR (CLEAR DELETED DATA MARK) 


TEST 30 = SET DENSITY = LGC TST 


TEST TO VERIFY THAT THE re WILL COMPLETE SET DENSITY IN BOTH 
DENSITIES. THE VALID WORD WILL ALSO BE CHECKED. ALSO TO VERIFY THAT 
THE DRIVE WILL READ IN BOTH DENSITIES, WITHOUT ERRORS. 


DESCRIPTION: 
- GET & SAVE DISK DENSITY 
SETUP gg = SINGLE 


EPORT ERROR 
SETUP pg AY WORD = ASCII °K" 


T DENSITY 
IF NO DENSITY ERROR, THEN REPORT ERROR 
SETUP VALID KEY WORD = ASCII “'I"* 
SETUP DENSITY = DOUBLE 
ie SET DENSITY 
IF ERROR, THEN REPORT ERROR 
CHECK DISK DENSITY . Lg IF NOT SET = DOUBLE 
IF SAVED DISK DENSITY = DOUBLE, THEN SET DENSITY = SINGLE 
AND CALL SET DENSITY 


e*eee#es#es 

Dz 

Sstesé 
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WN = OOONAMEWN 


aD ed ed 


TEST 31 = SECTOR ADR = LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
SECTOR ADDRESSES PROPERLY. 


DESCIRPTION: 
1. GET A SECTOR 
¢- CALL READ pecres 
CALL_READ ERROR 


. CODE 
- IF SECTOR ADDRESS NOT = RX SECTOR ADDRESS OR OTHER ERROR, 
THEN REPORT on Tie 
L ALL SECTORS DONE OR ERROR OCCURS 


4 

a D a > 4. 

g- SETUP SECTOR = "i (ILLEGAL SECTOR) 
5° AD SECT sy 

g 


CODE 
- IF NO SECTOR ERROR OR IF OTHER ERROR, THEN REPORT ERROR 





ee 


—————— 


TEST 32 = TRACK ADR = LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
TRACK ADDRESSES PROPERLY. 


secccetaail! way 


R CODE 
- IF TRACK ADDRESS NOT = RX TRACK ADDRESS, THEN CALL ERROR 
OR IF OTHER TRACK ERROR OCCURED, THEN CALL 0 
- 00 1. => 4. Qi hy L TRACKS DONE OR FINI FLAG SET (COMMAND ERROR) 


ALL RE CODE 
- IF TRACK ADDRESS NOT = RX TRACK ADDRESS OR 
IF ERROR CODE NOT = 40 (TRACK > 76.), THEN CALL ERROR 


TEST 33 = READ SECTOR-PRT:2 = LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


DESCRIPTION: 
1. tg yg hl Poe DENSITY 


AD ERROR CODE 
8. IF NOT DENSITY ERROR, THEN REPORT ERROR 


TEST 34 = WRITE SECTOR-PRT:2 - LGC TST 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


DESCRIPTION: 
SETUP DENSITY = DISK DENSITY 
- CALL WRITE SECTOR 
- IF ERROR, THEN REPORT ERROR 
4. SETUP DENSITY = OPPOSITE DISK DENSITY 
5. CALL WRITE SECT 
G. IF NOT DENSITY ERROR, THEN REPORT ERROR 





SEQ 20 


_™ SEQ 21 


TEST 35 = DELETED DATA WRITE PRT:2 = LGC TST 


Po Mawietiags Stage = te ns 

| i TO VERIFY THAT hy DEVICE SET A DELETED DATA MARK ON THE DISKETTE 

ADER AND RETRIEVE THIS DATA_ON A KNOWN GOOD DISKETTE. THIS IS DONE 
tN OPPOSITE DENSITY OF PART: 1. 


DESCRIPTION: 
1. SETUP DENSITY = 1% DENSITY 
¢- SETUP DELETED DATA MODE 
? TE 3 


OR CODE 
2° Mg THEN, REPORT ERROR 
7. IF RX ESR DELETED DATA BIT NOT SET OR OTHER ERROR, THEN REPORT ERROR 


TEST 36 = DISKETTE & DENSITY DATA CHECK = LGC TST 


TEST TO VERIFY WITH A KNOWN GOOD DISKETTE THAT THE DEVIC 
ag Ng TO THE DISKETTE WITHOUT DATA ERRORS. BOTH DEN 


DESCRIPTION: 
1. SETUP DENSITY = hie —" 
2. SETUP RANDOM DAT TTERN 
- GET A TRACK & SECTOR 
- CALL FILL BUFFER 
- CALL WRITE SECTOR 
- SETUP len BUFFER” INTERNAL BUFFER 


HECK 
- 00 5. => 10. UNTIL AT LEAST ONE SECTOR OF EACH TRACK IS ACCESSED 
- SETUP DENSITY = OPPOSITE DISK DENSITY 

> CALL SET DENSITY 

- DO 3. => 13. UNTIL BOTH DENSITIES DONE 








SEQ 22 
REVISION HISTORY 


CZRXFAO MACRO AND DOCUMENTATION HAV BEEN REVISED TO RUN ON PDP11/21 
PROCESSOR AND RENAMED TO CNRXFAO TO BE SPECIFIC TO THIS PROCESSOR. 
THE CHANGES INCLUDE PROCESSOR PRIORITY BEING LOWERED TO 6 FROM 7. 


LISTING INDEX 


eee 


_S ES A NS a a a ee 


K 2 
SEQ 23 
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PROGRAM HEADER 
PATCH TABLE 
DEFAULT HARDWARE P-TABLE 


non 
é 
#&mowor 
row 
o 
tot 
74] 


3- 108 
3- 129 LOAD DEVICE PROTECTION 
3- 141 SOFTWARE P-TABLE 
5- 189 GLOBAL EQUATES SECTION 
12= 664 GLOBAL DATA SECTION 
l2= 713 = READ_ERROR CODE BUFFER 
15- 798 GLOBAL TEXT SECTION 
17= 837 GLOBAL ERROR REPORT SECTION 
19= 891 - MOD U.ERR.ERR = ERROR 
23- 994 - MOD U.SFT.ENV = ERROR NUMBER EVALUATION 
25- 1048 - MOD U.PRT.PET = PRINT ERROR TYPE 
25= 1121 - MOD U.ERR.IDT = GET & PRINT ERROR IDENTIFICATION MESSAGE 
29= 1204 ad ERROR MESSAGES 
29- 1265 - MOD U.SFT.FRU = GET & PRINT FRU'S IDENT 
33- 1369 - FRU MESSAGES 
35- 1403 - FRU CALLOUT = PRESETUP FOR TESTS 
37= 1451 - FRU CALLOUT = PRESETUP FOR ERROR CIDE 
39= 1474 - MOD U.ERR.PCE = PRINT 
41= 1521 ° Cc D ERROR MESSAGE TABLE 
43- 1547 = MOD U.ERR.PRE = PRINT REGISTER ERROR 
43- 1564 = MOD U.PRT.SCP = PRINT SECTORS 
45= 1595 - MOD U.PRT.TKP = PRINT TRACKS 
47- 1653 =~ MOD U.ERR.CLE = CLEAR ERRORS 
49- 1676 GLOBAL SUBROUTINES SECTION 
49- oe 3 = MOD U.1.0 = RANDOM GENERATOR 
Si= 184 - MOD U.DEV.INT = INITIALIZE DEVICE 
Si- 1864 - MOD U.DEV.CLD = CLEAR DEV 
53- 1885 - MOD U.DEV.FLB - FILL BUFFER 
55=- 1921 - MOD U.DEV.EMB - EMPTY BUFFER 
57= 1957 - MOD U.DEV.WRT = WRITE SUBROUTINE 
59- 1993 - MOD U.DEV.RED = READ SUBROUTINE 
61=- 2028 = MOD U.DEV.SDN = SET DENSITY 
63- 2060 - MOD U.DEV.RST = READ STATUS 
65- 2087 = MOP U.DEV.REC = READ ERROR CODE 
67- 2123 - MOD U.DEV.CMD = SETUP DEVICE COMMAND 
67 2144 = MOD U.DEV.SSC = SETUP SUBSYSTEM COMMANDS 
69- 2170 - MOD U.DEV.CEC = DEVICE COMMAND ERROR CHECK 
71= 2199 = MOD U.DEV.WAT = WAIT SUBROUTINE 
71= 2223 = MOD U.DEV.DRC = DEVICE DONE CHECK 
73- 2248 = MOD U.DEV.SCH = WATCH TIMER 
75- 2294 - MOD U.DEV.WDN = AWAIT DONE BIT S 
77= 2325 - MOD U.DEV.WIR = AWAIT TRANSFER READY SUBROUTINE 
79- $366 = MOD U.DEV.REG = GET DEVICE REGIS 
79- 2389 = MOD U.DEV.ITR = INTERRUPT HANDL 
81- 2409 - MOD U.SFT.DPT = SET DATA PATTERN 
83- 2511 = MOD U.SFT.GTK = GET TRACK 
85- 2554 - MOD U.SFT.GSC = GET SECTOR 
87- 2583 = MOD U.SFT.DCK = DATA CHECK 
89- ooee - MOD U.SFT. ° CL DATA 
91- 265 = MOD U.SFT.RCR = REGISTER CHECK EPOR 
93- 2766 = MOD U.SFT.SRC = SETUP REGISTER CHECK 
95- 2808 - MOD U.SFT.BTK = BITS SET/NOT SET CHECK 
99- - PRESETUP REGISTER TABL 
101- 44 - MOD U.SET.GEN = GET ERROR CODE-ERR # 
103- 5 = MOD U.PRT.STA = PRINT UNIT STATUS 





SEQ 24 
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105= 3022 = MOD U.PRT.EC = PRINT UNIT ERROR CODE 
107= 3065 = UNIT ERROR CODE at Ss AGES 

107= 3091 = MOD U.SFT.GEO = GET ERROR CODE OFFSET 
107= 3101 - MOD U.SFT.CRS = CLEAR REGISTERS 

109= 3113 = MOD U.SFT.DSC = DEVICE STATE CHECK 

110= 3152 = MOD U.SFT.DRC = DEVICE READY CHECK 

112= 3175 = MOD U.SFT.DDC - DEVICE DENSITY CK 

114= 3230 = MOD U.SFT.TKE = TRACK ERROR CHECK 

118= 3305 = MOD U.SFT.ECK = ERROR CHECK 

122- 3389 - MOD U.SFT.ENC = ERROR “se TEST CHECK 
124= 3423 = MOD U.SFT.DBG = TEST STATUS 

124= 3442 = MOD U.SFT.CDC = COMPLIMENT ye ahaa 
124= 3456 - MOD U.SFT.SDC = SETUP DENSITY CONTR 

126= 3471 = MOD U.PRT.UNT = PRINT UNIT IDENT 

126= 3489 - MOD U.PRT.DID = PRINT DRIVE IDENT 

128= 3519 - MOD U.TST.FTS = ION T SETUP 
128= 3537 = MOD U.TST.LTS = LOGIC TEST SET 

128- 3558 - MOD U.TST.SFG = SETUP TEST FLAGS 

130- 3569 = MOD U.SFT.SDC = SETUP DEVICE COMMANDS 
130- 3588 - MOD U.TST.CCR = ceeM TEST CTRS & ERROR REGS 
130= 3610 = MOD U.TST.T76 = RAR. RACK=76 

131= 3633 REPORT CODING SECTI 

132= 3690 INITIALIZE SECTION 

133- 3779 - MOD 1.1 =- ear gro P-TABLES 

133- 3817 = MOD I.2 = IN arm ize ABLES 

134= 3829 CLEANUP CODING SECTI 

134= 3859 DROP UNIT SECTION 

134= 3896 AUTO DROP UNIT SECTION 

134= 3905 ADD UNIT SECTION 

135= 3985 TEST 0 = ADDRESSING T 

136- 4028 - U.SFT.TRP TRAP HANDLER 

137= 4053 TEST 1 = INITIALIZE = FNC TST ' 
139- 4087 TEST § = READ ERROR CODE = FNC TST 

141= 4120 TEST 3 = FILL BUFFER = FNC T 

143= 4147 TEST 4 = EMPTY BUFFER = FNC TST 

145= 4175 TEST 5 = READ STATUS = FNC T 

147= 4205 TEST § - FILL de wie BUFFER =- fae it 1 
149= 4246 TEST 7 = READ E SECT 

153= 4310 TEST 8 = WRITE SECTOR aig “DATA - FNC TST 
155= cis TEST 9 = SET DENSITY = FNC T 

159= 441 TEST 10 = POSITIONING = FNC tet 

160- 4456 TEST 11 = CS® BITS = TST 

163- 4518 TEST \¢ - %JBR BTS = LGC TST 

166= 4574 TEST 13 = CSR-DER COMMON BY H - LGC TST 
169- 4633 TEST 14 = 3S IWITIALIZE - 

ie 4689 TEST 15 = ROGRAMMED INIT IAL Ite = LGC TST 
173= 4723 TEST 16 - POWER FAIL = LGC 

176- 4788 TEST 17 = CONTROL LER-INTERFACE - LGC TST 
179= 4837 TEST 18 = = LGC TST 

183- £368 = MOD U.SFT.NAT = ADDRESS Be! ADDRESS TEST 
184= 497 TEST 19 = NPR NON-EXISTENT MEM = LGC TST 
187- is 34 TEST 20 = TERRUPT = LGC TST 

188- 505 TEST 21 = PRIORITY LVL = LGC T 

191- 2128 TEST § = INITIALIZE CONTROL = LGC TST 
a 183 TEST = DATA BUF INTEGRITY - Lge ist 
195= 5222 TEST 24 = WRD CNT INTEGRITY = LGC 

198- 5288 TEST 25 = CONTROLLER-READ*WRITE ELECT - LGC TST 
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201= 5331 TEST $ = READ SECTOR=PRT:1 = LGC TST 

204= 5385 TEST - ratte ter NG ~ LGC TST 

207= 5438 TEST 28 = WRITE SECTOR=PRT:1 = LGC TST 

210= 5490 TEST 29 = DELETED DATA WRITE PRT:1 = LGC TST 
213= 5545 TEST 30 = SET DENSITY = LGC TST 

216= 5630 TEST 31 = SECTOR ADR = LGC TST 

219- afe8 TEST $ = TRACK ADR = LGC 

222- 583 TEST 33 = SECTOR=PRT:2 = LGC TS 

225- 5889 EST 34 = WRITE SECTOR-PRT:2 = LG 

228- 5945 TEST 35 = DELETED DATA WRITE PRT: LGC T 
231= 6004 TEST 36 = DISKETTE & DENSITY DATA CHECK ° Gc TST 
236- ois HARDWARE PARAMETER CODING SECTION 


240= 6250 - RXO2 FILL BUFFER AREA 
240- 6258 - Rx02 ysl BUFFER AREA 
240- 6273 - PATCH AREA 


SEQ 25 


PARAMETER CODING 


VIVA EON 
VINK — OWN SO 


56 002000 


63 002000 


5 002000 
76 002122 
Hy] 002154 
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eNLIST SEQ,LD,BIN,CND 


002000 


LIST 
TITL 


«REPT 0 
SEQ,BIN 


TLE PROGRAM HEADER. AND TABLES 


PROGRAM HEADE 
-ENABL ABS, AMA 
"NEIST BEX,MD 
BGNMOD 


. 
THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: : THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSFT ,BGNAU,BGNDU,ERRTBL ,BGNSETUP 


HEADER CNRXFAO,0,0,170,0 
DESCRIPT <RXO02 FUNCTION-LOGIC TEST> 


DEVTYP <Rx02> 


-SBTTL DISPATCH TABLE 


pte 
: Hg DISPATCH TABLE CONTAINS THE STARTING ADDRESS ta TEST. 


IS USED BY THE SUPERVISOR TO DISPATCH TO EACH 


DISPATCH 36 


SEQ 26 


‘cc 











PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P=-TABLE 


108 

109 

110 

111 

112 

113 

114 pose 

115 002276 177170 
116 002300 2 
117 002302 

118 002304 000000 
119 002306 

125 002310 

126 

129 

130 

131 

132 

133 

134 002310 

135 002310 000000 
136 002312 177777 
137 002314 000004 
138 002316 

140 

‘3 

i 

144 

145 

146 002316 

147 OOS 55 000001 
148 002322 000000 
149 002324 000001 
150 tte 000000 
151 0023 

13¢ 2332 20 
15 Seat 000000 
1s Seas Ha 
156 0023¢2 000032 
157 002344 160000 
158 002346 000000 
165 002350 

166 

167 

168 

169 

170 

3 

i 

174 002350 


B 3 
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-SBTTL DEFAULT HARDWARE P=TABLE 

: THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 

: THE TEST<DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 

: BGNHW 
.WORD 177170 ZUNIBUS ADDRESS 
SWORD 264 [VECTOR ADDRESS 
“WORD 0 SDRIVE # 
“WORD 0 ‘FUTURE EXPANSION 
“WORD 5 <BR LEVEL #'S 
ENDHW 

-SBTTL LOAD DEVICE PROTECTION 


; LOAD DEVICE PROTECTION TABLE = USED TO CHECK HARDWARE P=TABLE 
3 AGAINST LOAD DEVICE. 


BGNPROT 
WORD 0 
-WORD -=1 
WORD 4 
ENDPROT 
-SBTTL SOFTWARE P-TABLE 


p++ 
: THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
: PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


3P-TABLE OFFSET=>CSR 
3P-TABLE OFFSET=>VECTOR=DON'T CARE 
3P-TABLE OF FSET=>DRIVE 


BGNSW SFPTBL 
DVTL: eWORD 1 HARD ERROR=>DEVICE FATAL THRESHOLD LEVEL 
WORD 0 CONTROL WORD FOR SOFTWARE P-TABLES 

STMOD:: .WORD 1 sTEST MODE 

TSTPAT:: .WORD sTEST PATTERN # 

TRKSEQ:: .WORD sTRACK SEQ & 

SWREG:: .WORD 20 SOFTWARE SW REG 

D:: WORD Q sQUTSIDE DIA. TRACK LIMIT 

D:: WORD 114 s INSIDE DIA. TRACK L . 
MINSEC:: .WORD 1 sMINIMUM SECTOR LIMI 
MAXSEC:: .WORD 32 sMAXIMUM SECTOR LIMI 
NXMADR:: .WORD 160000 NON-EXISTENT MEMORY=ADR 

KXADBIT:: .WORD 0 sEXTENDED ADDRESS BITS 

NDSW 

: 2 ; : : ; : 
; ! 15! 14! 13! 12! 11! 10! 09! 08! 07! 06! 05! 04! O3! 02! 01! 00! 
3 woeceseetoce}or=poeeetptocofp{eeepfoesoapoecefoecefose}ooe}pocofoce}¢ecefocet}toaaataoe ' 
SSUREG: ¢ iPaTi $30: $ § %F $F %F %&F P¥OwSeK? tee | 
; 5 $STAS cFlGs «6©6f—hlUflCUGlUCUSlUCUSlhlCUS CROCS OSES CS 


: wemowemefomefoosfpfosepoeesfeeefoeretptuoss}¢owe}fusce}owetoeeo}trocafuratarepaaopoce ‘ 


ENDMOD 





GLOBAL _AREAS 


SOFTWARE P-TABLE 


494 
495 002350 
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-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


sora=< TEST MACROS >==-= 
; THIS SECTION CONTAINS MACROS USED THROUGHOUT THE TESTS 


BGNMOD 


THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3_ARE USED IN MORE THAN ONE TEST. 


EQUALS 
3 : BIT DIFINITIONS 
&1T15== 100000 

BIT14== 40000 

BIT13== 20000 

BIT12== 10000 

BIT11== 4000 

BIT10== 2000 

BITO9== 1000 

BITO8== 400 

BITO7== 200 

BIT06== 100 

BITO5== 40 

BIT04== 20 

BITO3== 10 

BITO2== 4 

BITO1== 2 

B1T00== 1 

B1T9== BITO9 

BITB8== BITO 

BIT7== BITO 

BIT6== B1T06 

BITS== BITO 

BIT4== BITO4 

BIT3== BITC? 

BIT2== BITC2 

BITi== BITO1 

BIT0== BITO0 

> EVENT FLAG DEFINITIONS 
+  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


SEQ 28 





SEQ 29 | 
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: BIT POSITION IN SECOND STATUS WORD 
000040 EF. START== 32. : (100000) START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. : (040000) RESTART COMMAND WAS ISSUED 
000036 EF-CONTINUE== 30. : (020000) CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== : (010000) A NEW PASS HAS BEEN STARTED 
0000 EF .PWR== + (004000) A POWER=FAIL/POWER-UP OCCURRED 
> PRIORITY LEVEL DEFINITIONS 

000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIO5== 240 

PRI04== 200 
000140 PRI03== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIO0== 0 


[OPERATOR FLAG BITS 








SEQ 30 
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reid geeeee PROGRAM EQUIVALENTS *eee8 
499 000010 DLDOCMD = BITS Hit nate CMD BI T-----=<CSR> 
500 1 00000 ERRBI '. 2 BI T1 5 . sERR R BI 5 rds SR> 
501 040066 RXINIT = BIT14 ERXINIT BI Teweeeeeoene=<(SR> 
502 004000 RX2BIT = B1T11 xX _fporeenocswomaceaie 9 
503 001000 SIDE1 = BIT9 SIDE #1 Bl T+seeeeee---<ESR> & <CSR> 
5 000400 DENBIT = BIT8 a BI Toeweoeneoe~=<(SR> 
505 000200 TRBI T = BI T 7 I Jeowowweoeoeeoeocee(( SR> 
5 0040 DNBIT = BITS :DONE BI Teeeeeewooeneo==<(SR> 
000020 DRV1 =s BI T4 :DRIV 1 woweeoooeoeoecee<( SR> 
508 000 NXMBIT = BIT11 NON-EXISTENT MEMoo~----<E SR> 
509 002000 WCOVRF = BIT10 WORD COUNT OVERFLOW----<ESR> 
510 000400 DRIVE! = BIT8 :DRIV VE #1 Bl To-<ee+-----<ESR> 
511 000200 DRVRDY = BIT? DRIVE ny BI Teeeee---<ESR> 
512 000100 DLOBIT = Bite A Bl Teee------<ESR> 
513 000040 DRVDEN = BIT {DRIVE DENSI TYoxac=a=a—cE SRD 
514 000020 DENERR = BITS [DENSITY ERROR--------=-<ESR> 
515 000010 LOW = BIT3 sAC LOW woocooocoseon(£ SR> 
516 000004 INITDN = BIT2 INITIALIZE DONE BI T----<ESR> 
517 000002 SIDRDY = BIT! SIDE READ "al bccnmmannenabtae 
518 000001 CRCERB = BITO 7CRC ERROR BI T----------<ESR> 
519 000004 TRPG = 4 BUS TRAP LOC #4 = TRAP HANDLER 
520 000006 BIRP6 = 6 7BUS TRAP LOC #4 = PSW 
521 000001 LOGICT = BITO sLOGIC TEST Bl Te--------<SWREG> 
522 000002 FUNCTT = BIT He AE TEST BI T------<SWREG> 
257 010000 SIDFLG = BIT12 SIDE F 4 FT=-P TABLE ~<SUREG> 
524 000400 ITK = BIT8 TINITIALL E TRACKS FLAG <TKSCFG> 
525 001000 ISC = B1T9 S INITIALIZE SECTORS FLAG <TKSCFG> 
526 000001 STK = BITO sSEQUENCE TRACKS FL <TKSCFG> 
527 000002 SSC = hide sSEQUENCE SECTORS FLAG <TKSCFG> 
528 000000 RTK = RANDOM TRACKS FLAG <TKSCFG> 
529 000000 RSC = 0 RANDOM SECTORS FLAG <TKSCFG> 
230 000004 ILTK = BIT2 s ILLEGAL TRACKS FLAG <TKSCFG> 
236 geeene DEVICE COMMANDS teeee 
534 000000 FBCMD = 8 FILL BUFFER CMD 
535 000002 EBCMD = SEMPTY BUFFER CMD 
536 000004 WSCMD = 4 sWRITE SECTOR 
537 000006 RSCMD = 6 SREAD SECTOR 
538 000010 SDCMD = 19 SET DENSITY 
539 000012 STCMD = 1 US 
540 000014 WDDC = 14 sORITE DELETED DATA CMD 
541 000016 RECCMD = 16 TREAD ERROR CODE CMD 





SS 


— 





SEG 31 
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$44 peewee ERROR NUMBER EQUIVALENTS teeee 
546 00000 WRTERR = 2. :WRITE ERR “HRD 
547 00000 RDERR = , TREAD ERR “HRD 
548 000004 CRCERR = i. =CRC ERR “HRD 
549 000005 DATER = 5. [DATA ERR “HRD 
550 000006 SEKERR = 6. TSEEK ERR “HRD 
331 000007 DLDERR = ?. :DELETED DATA ERR “HRD 
553 
554 000012 FILERR = 10. :FILL BUFFER ERR “HRD 
555 000013 EMPERR = 11. SEMPTY BUFFER ERR “HRD 
556 000014 INTNDN = 12. zINT ERRUPT DONE “HRD 
557 000015 DNNINT = 13. NO intennupt ERR “HRD 
558 000016 ERRNST = 14. PRNOR NoT’S T ERR “HRD 
559 00001 ILLERC = 15. SILLEGAL ERR BR CODE “HRD 
560 000020 DENDSK = 16. ‘DENSITY OF DISK-NOT ERR “HRD 
$62 000021 RECERR = 17. SREAD ERROR CODE ERR “HRD 
56 e 
564 000023 WCERR = 19. zWORD COUNT ERROR “DVCFTL 
565 000024 SDRDYE = 20. SSIDE READY -DVCFTL 
000025 DVRDYE = 21. [DRIVE READY -DVCFTL 
567 000026 WRG = 22. 'SIDE WRONG -DVCFTL 
568 000027 DRVWRG = 23. sDRIVE WRONG -DVCFTL 
569 000030 DENERR = 24. ‘DENSITY ERR -DVCFTL 
70 900051 = 5. [DENSITY MIXED ON DISK ERR -DVCFTL 
71 é DLDTER = 6. [DELETED DAT A ERR -DVCFTL 
572 00003 CSRERR = . ERX XCSR-ERR -DVCFTL 
573 000034 DBRERR = 8. RXESR=ERR -DVCFIL 
574 000035 STDNER = 9. [SET DENSITY ERR -DVCFTL 
575 000056 SDKYWD = 0. 3SET DENSITY KEYWORD (VARIFY)  -DVCFTL 
576 00003 ACL » - Ow -DVCFTL 
577 000040 ALGOZE = 32. SALGO2 ERROR -DVCFTL 
578 000041 TRKAER = 33. STRACK ADDRESS -DVCFTL 
379 000042 SECAER = 34. ‘SECTOR ADDRESS -DVCFTL 
581 E 
582 000050 ACLOWF = 40. ZAC LOW FATAL ERR “SYSFTL 
583 000051 WCOVFE = 41. sWORD COUNT OVERFLOW ERR “SYSFTL 
584 00005 NKMERR = 42. *NON“EXISTENT MEMORY ERR “SYSFTL 
585 00005 NPRERR = 43. [NPR LOGIC ERR “SYSFTL 
000054 PRILEV = 44. [PRIORITY LEVEL ERR “SYSFTL 
587 000055 DATABF = 45. [DATA BUFFER INTEG ER “SYSFTL 
000056 HDSFDG = 46. HARDWARE SELF DIAG ERR “SYSFTL 
589 00005 NOT = 47. "TR" TIME “SYSFTL 
590 000060 NODNBT = 48. ;DONE’' BIT TIBIT TIME OUT ERR -SYSFTL 
591 000061 NOITDB = 49. :NO "INIT DONE’ BIT ERR -SYSFTL 
59 00006¢ NOITDP = 50. 3NO PROG “INIT DONE’ BIT ERR — ~SYSFTL 
59 00006 DNNOTR = 51. DONE BIT, NO "TR BIT ~SYSFTL 


nr 


SEQ 32 
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GLOBAL EQUATES SECTION 


we a ery 


597 oeenee FRU CALLOUT MESSAGE EQUIVALENTS. aeene 
598 900000 INTERF : INTERFACE=0 
5 00000. CONTRL = #1, sFRUM1 CONTROLLER 
000004 RWELEC = “2. sFRUM sReW EEE TRONICS 
601 000006 PHYDRV = #3, ;FRUM ‘PHYSICAL DRIVE 
60 00001 CABLES = 2*4, SFRUMG CABLES 
60 00001 POWRSP = 13. : FRUMS <POUER SUPPLY 
604 000014 DISKET = 6,  ERUMG : DISKETTE 
605 000016 INTFSW = *7. ;FRUM i INTERFACE SWITCHES 
606 000020 NPRJPR = #8. :FRUM8 § :NPR JUMPER 
607 000022 CONTSW = #9.  SFRUM9 CONTROLLER SWITCHES 
608 000024 INTFCB = 210. “sFRUM10 :INTERFACE CABLE 
000026 OOROP = 2*11. :FRUM11 :DOOR OPEN 
610 000030 DISKSP = 2*12. :FRUM12 :DISK SPINNING-DRIVE BELT 
611 000032 TOR = eis. [FRUM13 :MOTOR AC POWER NOT ROTATING 
612 000034 R = #14. 3 FRUMI4 3POWER CORD, BLOWN FUSE, DRIVE POWER 
613 SCONNECTOR POWER SUPPLY FAULT. 
615 zesees TEST FLAGS REGISTER EQUIVALENTS (FLAGST) seee0 | 
616 000001 REGCK BITO REGISTER CHECK 
617 000002 DDCFLG = BIT? {DOUBLE DENSITY CONTROL FLAG (DD=1) 
618 000004 DATCK = BIT2 DATA CHECK 
619 000010 DLPDN = BIT3 DO LooP DONE 
620 000020 EMBUFF = BITS ZEMPTY BUFFER=<USED BY DATA CHECK> 
621 000040 FUNTST = BITS SFUNCTION TEST FLA 
622 000100 HDRPRT = BITS ERROR CALL SEADER PRINT 
625 000200 RECFLG = BIT sREAD ERROR CODE FLAG 
624 001000 TRKDON = BIT9 :T RACK DONE 
62 002000 SECDON = BIT10 ZSECTOR DONE 
626 004000 NEGTST = BIT11 TE CATIVE TEST FLAG 
627 010000 ILLGAL = BITI¢ SILLEGAL FLAG 
628 020000 CK = BIT1 ZChECK ERROR WORDS FLAG 
629 040000 HRDERR = BIT14 SHARD ERROR 
630 100000 ERRFLG = BIT15 : 
632 pteeee PROGRAM/PRINT FLAGS REGISTER EQUIV (FLAGSP) see 
634 000001 TKPRT = BITO : TRACKS PRINT 
635 000002 SCPRT = BIT1 SSECTORS PRINT 
6 000004 RGPRT = BITe :REGISTERS PRINT 
637 000010 PR = BIT PROTOCAL LEVEL PRINT 
000100 HDRPRT = BITg ;HEADER PRINT 
639 000200 RECTST = BIT ZER ROR CODE TEST (INVOKE ERROR CODE) 
00 LSIFLG = BIT8 [LSI FLAG 
641 010000 FONZFG = BIT12 *FONZ FLA G 
64 040000 RESFLG = BIT14 SRESTART FLAG 
643 100000 STAFLG = BIT15 [START FLAG 
645 peeees SYS ERR & “TYP ERR" REGISTER EQUIVALENTS teeee 
647 000020 CMDERR = BIT4 7 COMMA GF RROR 
648 004000 DVFERR = BIT11 ‘OEVICe ATAL ERROR 
649 002000 SYFERR = B1T10 SSYSTEM FATAL ERROR 


pr ss sss asda 


6 
by 
a 
| 
| 
| 
| 
| 
| 
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AL DATA SECTION 


Eesestes ESEESIESE HESEEEESECS 


SSSSSSS8 





~SBTTL GLOBAL DATA SECTION 


p++ 
: THE GLOBAL LATA SECTION CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 


; STORAGE FOR DEVICE REGISTERS 


xcs: WORD 0 sUNIT BUS ADR-CSR <UUT *> ' 
RXDB: WORD 0 hoe HH BUS ADR-DBR <UUT *> ' 
VECT: .WORD 0 sUNIT VECTOR <UUT *> ' 
RXPRI: .WORD 0 sPRIORITY FOR erie INTERRUPTS <UUT *> : DEVICE 
EMPADR: .WORD 0 SEMPTY BUFFER ADDRESS ' 
FILADR: .WORD 0 : yn BUFFER DDRESS. : 
RECADR: .WORD 0 READ ERROR CODE A + PARAMETERS 
EXTADR: .WORD 0 EXTENDED sores (BIT: #12 & #13) : 
WOCNT: .WORD 0 dC : 
VARIFY: .WORD 0 SVARIFY WORD ' 
TRACK: .WORD 0 : TRACK ADR i 
SECTOR: .WORD 0 SECTOR ADR ' 
CMD: -WORD 0 COMMAND WORD-TO DEVICE ' 
DELDAT: .WORD 0 ;DELETED DATA FLAG & WORD <CMD> + COMMAND 
INTERT: .WORD 0 ZINTERRUPT WORD <CMD> ' 
DRIVE: .WORD 0 sORIVE WORD <CMD*> ' 
IDE: .WORD QO SIDE WORD <CMD*> + PARAMETERS 
DENSTY: .WORD 0 DENSITY CONTROL WORD <C ' 
DENSTA: .WORD 0 DENSITY STATUS WORD-DRIVE DENSITY ‘ 
PRIORT: .WORD 0 PRIORITY OF et 5 a HANDLER=WATCH DOG ‘ 
DRVOFF : WORD 0 SDRIVE BYTE OFFSET : 
ERRCMD: WORD 0 senege COMMAND : DEVICE 
CMD: .WORD 3 AST COMMAND + ERROR 
LRXCSR: .WORD SLAST RX CSR STORAGE ' 
LRXESR: .WORD 0 sLAST RX tan STORAGE : & 
XCSR: .WORD 0 RX CSR STORAGE : 
RXESR: .WORD 0 RX _ESR STORAGE + STATUS 
REGEXP: .WORD 0 REGISTER EXPECTED + INFO 
REGACT: «WORD 0 REGISTER ACTUAL : 


* = INFO FROM HARDWARE P-TABLES 


- SBTTL - READ ERROR CODE BUFFER 


KERUUT: -BYTE sERROR CODE UUT 
; OUNT UUT 


WC: -BYTE 3 C 
CTkKO: BYTE CUR TRK DRV 
CTki: BYTE CUR TRK DRV#1 
TTRK: .BYTE s TARGET TRACK 
SEC: .BYTE Best SECTOR 
SFTSTS: .BYTE MICRO CODE SOFT STATUS 
K: BYTE 7BAD TRACK ADR (ONLY APPLIES IF ERR CODE = 150 


—S 





SEG 34 
'GLOBAL AREAS MACRO M1200 14-DEC-B2 16:33 PAGE 13 
i= READ ERROR CODE BUFFER 
| 725 (foe ee vee nS ee Be os eS GY ee ee Ow ee Oe ae me fe ee me Gee: Oo ee ee ee ww ow om Ow wy Ce se eS eS ee Se 
| 726 002452 000000 ABORT: .WORD 0 ror FLAG .  weor 
727 002454 000000 FIN: eWORD 0 FINI COMMAND FLAG + ERROR 
72 00 SYSERR: .WORD 0 {SYSTEM ERROR ' 
729 002460 00 TYPERR: .WOR 0 s TYPE ERROR ; & 
730 002462 000000 RECERN: .WORD 0 READ ERROR CODE-ERROR NUMBER : STATUS 
43} 002464 000000 NGTSER: .WORD 0 NEG TEST EXPECTED ERROR + INFO 
733 002466 000000 TSTID: .WORD 0 sTEST IDENT WORD ! TEST 
734 002470 000000 TCMDCT: .WORD 0 TEST COMMAND COUNTER H 
735 002472 000000 PROTCT: .WORD 0 :PROTOCAL COUNT : INFO 
ree 002474 000004 DNWTMT: .WORD 4 DONE WAIT MULTIPLIER : 
738 002476 000000 FLAGST: .WORD C sSOFTWARE TEST FLAGS => SEE BELOW : TEST 
739 002500 000000 FLAGSP: .WORD OG sSOFTWARE PROG/PRT FLAGS==->SEE BELOW : 
740 002502 000004 FLGDRS: .WORD 4 sFLAGS FROM ‘‘DRS** t CONTROL 
741 002504 000000 TTEMP1: .WORD 0 sTEST T ‘ 
742 002506 000000 TSAVE1: .WORD 0 3T SAVE 1 t FLAGS 
ot 002510 000000 TKSCFG: .WORD 0 3 TRACK & SECTORS FLAGS ==> SEE BELOW H 
745 002512 000000 UNTPRT: .WORD 0 SUNIT #-PRINT : DEVICE 
746 002514 000 DRVPRT: .BYTE 0 sDRIVE #-PRINT | PRINT 
ts 002515 000 SIDPRT: -BYTE 0 sSIDE #-PRINT : 
757 002516 ERRTBL 
002516 000000 ERRTYP:: -WORD 0 
002520 000000 ERRNBR WORD 8 
002522 000000 ERRMSG: : WORD 
759 002524 000000 ERRBLK: : -WORD 0 
760 3 aeene SOFTWARE REGISTER DEFINITIONS *eee2 
762 : ' ' ' 
763 : 1 15! 16! 13! 12! 11! 10! 09! 08! 07! 06! O05! 04! 03! 02! 01! 00! 
764 : i woe foe focen foce Foon }ocetoce foeetfocen fooe}oee}oce}oce}oontpoce}ocoea ! 
765 3 TERR'ERR!DON!ITR'WRT! RDIFIL!UNK! ! DD! DD! ° ' Ck! § : 
766 2 TYPERR: eat Bt Dt at teal | 4 eet - ims 5 JUNK? CMD DAT ! SUM? SEK! CRC 
768 fscscens! snsssesenerscertossscséseséacssasssasetccsteersescbesséeaséess! 
769 § $ 8 9 ° ! WRONG !TR Ab id DONE! FUNCTION ! 
770 ; SYSERR: wt ipen! IDVE ISYF ieneeeeniTQ IRDYIRDVie------! CAUSING / 
771 ‘ERR! ‘ERR! TERRIERR'SID!DRV'ERRIERR‘ERR'FUN!INT! ERROR ! 
772 i quasansbsnnsenntagesadbbesesanstensseusteutasssenataancnansenpsenseasst 
773 SFLAGST: Satie 4} CkIILL!NEG! SEC! TRK !RTY!REC HDR! FUN! EMB!DLP!DAT!DDC!REG! 
: 'FLGSERR!ERR!GAL! TST!DON! DON! ENB! FLG!PRI!TST!UFFIDN : CKIFLG! CK! 
775 $ saesssssssssssssssssessssssszzsszzzsszzszs2szzzszszsz222z=zZ22222z==z22=2! 
776 ZFLAGSP: Ht teg ft 'LSI!REC!HDR! § 'PRO'RG 'SC !Tk 
777 e FLG!FLG! 'FLG!TST!PRT! : iPRT'PRT'PRT'PRT! 
778 $ Sessssssscssssssszsssszssssstsssss2sss2sz2sss2zs22222222522222=2==22=2== 
; TKSCFG: : , $ 4 . ° Bee : . 8 8 m8 ss $f 
; : ; : ; isc itk ! : : : : itk 'sc¢ itk } 
781 fSsessssssssssssszsssssrszssssssszssszzssss2szssszz2s2z22222S2z2222222=22 


NOTE: XXX IS REFERENCE FOR FURTHER EXPANSION 





= eae 
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GLOBAL TEXT SECTION 
798 





-SBTTL GLOBAL TEXT SECTION 


yee 
3 THE GLOBAL i1EXT SECTION CONTAINS FORMAT STATEMENTS, 
eg A one rest. INFORMATION THAT ARE USED IN 


: NAMES OF DEVICES SUPPORTED BY PROGRAM 


> FORMAT STATEMENTS USED IN PRINT CALLS 


SEG 35 


bse ean 


pcs taac a 
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GLOBAL ERROR REPORT SECTI 


837 -SBTTL GLOBAL ERROR REPORT SECTION 


SEQ 36 


1 THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
: Mr ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 


SESTELES 


RR 


857 002546 
858 


859 002550 
noe 002566 


86 
862 002570 
863 002610 


864 
865 002612 
866 002634 
867 





004737 002550 


004737 002570 


004737 002612 


000207 
000207 
000207 
000207 
000207 
000207 
000207 
000207 
000207 


000207 


; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


; BGNMSG PRTBO 
CALL PRTBOS 
ENDMSG 


BGNMSG PRTB1 
CALL PRTB1S 
ENDMSG 


Vege PRTB2 
as PRTB2S 


PRTBOS: PRINTB R1 
RETURN :RETURN 


PRTB1S: PRINTB R1,R2 
RETURN ;RETURN 


PRTB2S: PRINTB R1,R2,R3 
RETURN RETURN 


PRTB3S: PRINTB R1,R2,R3,R4 
RETURN ZRETURN 


PRTB4S: PRINTB R1,R2,R3,R4,R5 
RETURN :RETURN 


PRTXOS: PRINTX R1 
RETURN 


PRTX1S: PRINTX R1,R2 
RETURN 


PRTX2S: "RINTX R1,R2,R3 
RETURN 


PRTIX3S: PRINTX R1,R2,R3,R4 
RETURN 


PRIXGS: PRINTX R1 oR2,R3,R4,R5 
RETURN 


ne = ——— + 






GLOBAL AREAS 
- MOD U.ERR.ERR = ERROR 
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SBTTL = MOD U.ERR.ERR = ERROR 


BGNSUB 4 
IF ERk NBR NOT=0 CFI 


THEN@SET ven oe ERR TAT 
: CALL ERROR NUMBER EVALUATION 
: SETUP ERROR BLOCK CODE VADDRESS 
CALL PRINT ERROR TY 
IF PROGRAM FLAGS-PRT ase 277? SET fui 
peat ERRNBR=CSR_ERR I] 
He ~CALL PRINT "REGS 


ENDIF 
IF COMMAND ERROR SET IN TYPERR [8] 
: | paadlata PRINT COMMAND ERROR 


ENDI 

IF FUNCTION TEST NOT SET C 

: THEN-IF shad FLAGS=REGS PRINT C 
: THEN@CALL REGISTERS PRINT 


N 
IF to ad FLAG=SECTOR PRINT CG] 
a N-CALL SECTOR PRINT 


ENDI 
IF PRINT FLAG=TRACK PRINT {cJ 
3 1 gate TRACKS PRINT 


N 
CALL PRINT FRU 
CALL PRINT UNIT STATUS 
eLSE= iF rie REGISTER BIT #14 SET Cd] 
He N-CALL PRINT UNIT STATUS 


ENDIF 
IF ERR SAVE = ERR OLD Ck] 
: THEN = INCREMENT ERROR CTR 
IF ERROR CTR = 10 ERRORS Ct) 
: THEN = SET ABORT = 20 


; E 
¢ ELSE = SET ERR OLD = ERR SAVE 
; CLEAR ERR SAVE 

CLEAR ERR CTR 


: EN 

: CALL CLEAR ERRORS 
ENDIF 

+ ENDSUB 


NE Se 


SEG 37 


eR ae aD 




















SEQ 38 
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- MOD U.ERR.ERR = ERROR 











938 003060 900240 ERROR: NOP ; 
939 003062 005737 002520 IFERR: TST ERRNBR TIF ERR NBR, 
940 003066 0015 BEQ EFERR :NOT=0, THEN 
941 003070 013737 002520 003336 MGV ERRNBR,ERRSAV SAVE ERROR NUMBER 
942 003076 004737 003344 CALL  ERNBEV CALL ERROR R NUMBER EVALUATION 
943 003102 012737 003502 002524 MOV #ERIONT,ERRBLK SETUP ERROR BLOCK CODE ADDRESS 
944 003110 004737 003474 CALL =‘ PTERTY $CALL PRINT ERROR 
945 003114 032737 000004 002500 IJERR: BIT #RGPRT ,FLAGSP 3 IF PROGRAM FLAGCPRY FLAG 
946 003122 001006 BNE IBERR NOT SET, THEN 
947 003124 022737 000033 002520 IIERR: CMP ACSRERR,ERRNBR 31F CSR ERR 
948 003132 001002 BNE IBERR 
949 003134 004737 007564 CALL § PRTREG [CALL PRINT REGS 
950 003140 032737 000020 002460 IBERR: BIT #CMDERR, TYPERR 31 TYPERR=COMMAND ERROR 
951 003146 001402 BEQ IAERR t, TH 
93¢ 003150 004737 007040 CALL  PRTCDE CALL RINT COMMAND ERRORS 
953 003154 032737 000040 002476 IAERR: BIT #FUNTST, FLAGST IF FLAGS-FUNCTION TEST 
954 003162 001027 BNE IDERR NOT SET, THEN 
955 003164 032737 000004 002500 IEERR: BIT #RGPRT ,FLAGSP iI PROGRAM FLAGS=REGS PRINT 
956 003172 BEQ IGERR 
957 003174 73? 007564 CALL § PRTREG :CALL PRINT REGS 
958 003200 032737 000002 002500 IGERR: BIT #SCPRT,FLAGSP IF PROGRAM FLAG=SECTOR 
959 003206 001402 BEQ ICERR 3B1T SET, THEN 
960 005210 004737 007674 CALL  PRTSEC 
961 003214 032737 000001 002500 ICERR: BIT ATKPRT,FLAGSP IF PROGRAM FLAGS=TRK PRINT 
362 003222 00140. BEQ ECERR 3B1T SET 
963 003224 004737 010002 CALL = PRTTRK ALL PRINT TRACKS 
364 003230 004737 005404 ECERR: CALL  PRTFRU 3CALL PRINT FRU 
965 00 004737 015240 CALL = PRTSTA :CALL PRINT UNIT STATUS 
966 003240 000406 BR EAERR [BR TO END ‘A* 
967 003242 032737 040000 002332 IDERR: BIT WBITIG,SWREG IF SWITCH REG BIT 14 
968 003250 00140 BEQ EAERR [SET, THEN 
969 003252 004737 015240 CALL = PRTSTA [CALL PRINT UNIT STATUS 
970 003256 900240 EAERR: NOP : 
971 003260 023737 003336 003340 IKERR: CMP ERRSAV,ERROLD 3 1F SAVED ERR & OLD ERR 
97 005266 001011 BNE LKERR 
973 003270 005237 00334 INC ERRCTR SINCREAENT ERR CTR 
974 003274 022737 1 003342 ILERR: CMP #10. ,ERRCTR RRS OF SAME KIND 
973 00530 01 73? 00245 mov #20 ABORT :SET ABORT FLA 
399 3312 013737 003336 003340 LKERR: MOV ERRSAV,ERROLD SETUP OLD ERR FOR NEXT Ck 
978 003 005037 0033 CLR ERRSAV SCLEAR OUT SAVED ERR 
979 003524 005037 003342 CLR ERRCTR 3CLEAR ERR CTR 
3330 004737 010300 EFERR: CALL  CLRERR [CALL CLEAR ERRORS 
981 003334 000207 XERROR: RETURN RETURN 
oes 003336 000000 ERRSAV: SAVED ERR 
984 003340 000000 ERROLD: TOLD ERR 
Oae 003342 000000 ERRCTR: TERR CTR 
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THEN~SET DEV FATAL ERR=>ERRTYP 


ERROR NUMBER EVALUATION 
.SBTTL = MOD U.SFT.ENV = ERROR NUMBER EVALUATION 
: BGNSUB 
: IF ERk NBR > 39. [AJ 
: : THENSSET. SYSTEM FATAL ERR=>ERRTYP 
: : IF ERR NBR > 19, (8) 
; a he test? DEVICE FATAL ERR=>ERRTYP 
: : IF ERR > 0. (bp) 
: = GHENNeET. HARD ERR->ERRTYP 
: : ENDIF 
: :  ENDI 
: iy ENDIF 
: IF ERRTYP=HARD ERROR CFI 
: : IF EVAL SET IN ORS FLAGS (6) 
; : THEN-INCREMENT HARD ERR THRESHOLD LEVEL 
: : JF HARD ERR THRESHOLD LEVEL=SET LEVEL CH) 





SIF ERR NBR > 39. 
[SET ERRTYP=SYS FTL 
0 ce 


SET ERRTYP=HARD ERR 


ee = HARD ERR 
;I1F EVAL IN DRS FLAGS 
SET ~— 


CE FTL THRES LVL=SFT LEV 


I 
RRTYP=DEV FTL ERR 
EAR HARD ERR THRES LVL CTR 


N 
E 

ee HARD ERR THRE SHOLD LEVEL CTR 
é 





: ENDI 
: ENDIF 
ENDIF 
ENDSUB 
999240 ERNBEV: NOP 
37 000047 002520 IAENV: CMP #39. ,ERRNBR 
101003 BHI IBENV 
005037 002516 CLR ERRTYP 
16 BR FENV 
02073 000023 002520 IBENV: CMP #19. ,ERRNBR 
1004 BHI IDENV 
012737 000001 002516 MOV #1 ERRTYP 
$0508 002520 IDENV: TST ERRNBR 
$F oone goose adele 
sie ities poseie IFENV: CMP #2. ERRTYP 
1017 BNE EFENY 
7 000006 002592 IGENV: BIT #B1T2, FLGORS 
001415 0 EFENV 
005 3 903472 INC HETLCT 
025 7 002 003472 JHENV: one DVTL -METLCT 
1 7 1 002516 MOV #1, ERRTYP 
? CLR HETLCT 
EFENV: NOP 
MERNBE: RETURN 
000000 METLCT: 0 


*eeeeeo- * ®eec ©; @oeeee, 


sHARD ERROR THRESHOLD LEVEL CTR 


eee eoe" — © © eee" © eee ~ +-Reerr ++ oc ooeeeo 


SEG 39 


a 


SEQ 40 
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= MOD U.PRT.PET = PRINT ERROR TYPE 


10468 -SBTTL = MOD U.PRT.PET = PRINT ERROR TYPE 

ee 3; BGNSUB 

105 : CALL ERROR = REVC 

1054 3 ENDSUB 

1 055 é (Sb TE Se oe Ge ee Oe EE Se OS OE GR SE SD EE Os Sw Dw GP Se Ce ee Se Se SD me me ae SD SS Se aD TR Ge GD AD Se te Oe am ow Ge Oo UE DP | ae ee eS aE 
1056 

1057 003474 000240 PTERTY: NOP : 

1058 003476 ERROR $ 

O20 003500 000207 RETURN ; RETURN 

1120 . 

Vig) -SBTTL = _MOD U.ERR.IDT = GET & PRINT ERROR IDENTIFICATION MESSAGE 
1125 $ 

1124 3; BGNMSG ERINENT 

1125 : LET R1I=ERROR # 

1126 3 DOUBLE R1 FOR ADDRESSING = MESSAGE OFFSET 

1127 : LET RISERR SG TABLE ADD + MESSAGE OFFSET 

1128 : PRINT BASIC R1 

1129 : PUT MESSAGE TABLE ADDRESS IN R1 

1130 : PRINT BASIC R1 

1131 : ENDMSG 

1 1 %§ e TSB S22 SSs8BSSTGSeSem eu seen Tene ee st aoe SBe eens osDeeen wees 2eeaSOoosess eae ne ovuwaa 
113 

1185 BOBEE ovsroy ooesz pavts® FURST at ager em 

1136 ised phasor ASL Ri ;DOUBLE if FOR ADDRESSING 

1137 003510 000240 NOP 

1138 003512 016101 003534 MOV ERMSTB(R1),R1 2GET ERR MSG ADR “ROM TABLE 

1139 Op 3238 004737 002550 CALL PRTBOS sCALL PRINT BASIC A 

1140 00352 o13701 003534 MOV ERMSTB,R1 :GET RES? OF ERR MSG FROM TABLE 
1141 003348 004737 002550 CALL PRTBOS 3CALL PRINT BASIC NO ARG 

+308 0035 ENDMSG 





—— 
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MOD U.ERR.IDT = GET & PRINT ERROR IDENTIFICATION MESSAGE 


SEQ 41 


1146 : ERROR MESSAGE TABLE ERROR DESCRIPTION -CLASS 
1148 003534 003706 ERMSTB: .WORD ERMSO ;ERROR ; 

1149 003536 0037 <WORD ERMSO :ERR#O : 

1150 00354 00371 «WORD ERMS2 :ERR#2 ;WRITE “HARD 
1151 003542 003731 ;WORD ERMSS ;ERR#3 :READ “HARD 
1158 003544 00374 “WORD ERMSG ERR#G : “HARD 
115 003546 00375 “WORD ERMSS ERR#S ;DATA ERR “HARD 
1154 003550 00376 “WORD ERMS6 :ERR# “HARD 
1155 003552 003774 “WORD ERMS? :ERR# SDEL DATA “HARD 
1156 003554 003706 “WORD ERMSO ERRIB ; “HARD 
1157 003556 905706 “WORD ERMSO ;ERR#9 ;: “HARD 
1158 003560 00401 “WORD ERMS10 :ERR#10 :FILL BUFFER “HARD 
1159 003562 004035 “WORD €ERMS11 :ERR#11 :EMPTY BUFFER “HARD 
1160 003564 004056 ;WORD ERMS12 :ERR#12 :INTR-NO DONE “HARD 
1161 003566 004172 “WORD ERMS13 ZERR#13 ;DONE-NO INTR “HARD 
1162 003570 004146 <WORD ERMS14 SERR#14 :ERR-NOT SEI “HARD 
1163 003572 004177 “WORD ERMS1S :ERR#15 :ILLEG ERR CODE “HARD 
1164 003574 004206 “WORD ERMS16 :ERR#16 :DISK DENSITY MIXED OR WRG “HARD 
1165 003576 004264 “WORD ERMS17 :ERR#17 :READ ERROR CODE-ERROR WRG “HARD 
1166 003600 003706 “WORD ERMSO :ERR#18 : 

1167 003602 004314 ;WORD ERMS19 SERR#19 :WORD COUNT 

1168 003604 004333 “WORD ERMS20 ;ERR#20 :S1DE NOT RDY <DEVFTL 
1169 003606 004356 “WORD ERMS21 ;ERR#21 :DRIV NOT RDY <DEVFTL 
1170 003610 004402 “WORD ERMS22 SERR# ¢ SSIDE RESPONDING WRG “DEVE TL 
1171 003612 004434 “WORD ERMS23 SERR# <ORIVE RESPONDING WRG -DEVFTL 
117 003614 904467 ;WORD ERMS24 :ERR#24 :DEN -DEVFTL 
1173 003616 503 “WORD ERMS25 :ERR#25 :DENSITY DISK -DEVFTL 
1174 003620 004532 <WORD ERMS26 ;ERR#26 :DEL DAT -DEVFTL 
1175 003622 004553 “WORD ERMS27 SERR#27 :CSR -DEVETL 
1176 003624 004564 “WORD ERMS2B ;ERR#2B ; -DEVFTL 
1177 003626 003706 ;WORD ERMSO :ERR#29 : -DEVFTL 
1178 003630 004625 “WORD ERMS3O :ERR#30 SET DENSITY KEYWORD -DEVFTL 
1179 003632 004655 <WORD ERMS31 ;ERR#31 :AC LOW “DEVFTL 
1180 003634 004670 <WORD ERMS32 :ERR#32 :ALGO2 -DEVFTL 
1181 003636 004711 “WORD ERMS33 ;ERR#33 : TRACK ADDRESS “DEVE TL 
1182 003640 004733 “WORD ERMS34 :ERR#34 :SECTOR ADDRESS “DEVE TL 
1183 003642 003706 ;WORD ERMSO ;:ERR#35 ; 

1184 003644 003706 ;WORD ERMSO TERRES : 

1185 003646 003706 “WORD ERMSO :ERR#37 ;: 

1186 003650 0037 “WORD ERMSO —ERR#3B ; 

1187 003652 003706 “WORD ERMSO :ERR#39 ; 

1188 003654 004756 “WORD ERMS4O :ERR#40 :AC LOW FATAL “SYSFTL 
1189 003656 004777 “WORD ERMS41 ;ERR#41 : WORD COUNT OVERFLOW “SYSFTL 
1190 003660 005027 “WORD ERMS42 ; RBG NON mEXISTENT MEM “SYSFTL 
1191 003662 005054 “WORD ERMS43 :ERR#&4 PROCESSOR REQUEST “SYSFTL 
1192 003664 005102 ;WORD ERMS44 :ERR#44 {PRIORITY LEVEL “SYSFTL 
1193 003666 005125 “WORD ERMS45 ZERRE #45 :DATA BUFFER INTEG -SYSFTL 
119% 003670 005153 “WORD ERMS46 ; RREdG HARDWARE SELF DIAG -SYSFTL 
1195 003672 005202 “WORD ERMS47 SERR#47 : IT OUT “SYSFTL 
1196 003674 005230 “WORD ERMS4B :ERR#4 s DONE BIT at ME et “SYSFTL 
1197 003676 005260 “WORD ERMS49 SERR#4 INI -SYSFTL 
1198 003700 005307 “WORD ERMSSO :ERR#SO : 3! PROG aT CON NE** vecees « TOVSFTL 
1199 003702 005337 “WORD ERMS51 :ERR#51 : NONE: SET=>WAITING FOR “'TR' BIT-SYSFTL 
1200 003704 003706 “WORD ERMSO ;:ERR#52 ; -SYSFTL 





SEQ 42 
GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 29 
= ERROR MESSAGES 


1204 .SBTTL = ERROR MESSAGES 
1308 003706 045 101 040 ERMSO: .ASCIZ /%A ERROR/ 

120 sERMS1: .ASCIz /%A 1 2/ 

1208 003717 045 101 040 ERMS2: .ASCIZ /%A WRITE/ 

1209 003731 045 101 040 ERMS3: .ASCIZ /%A READ/ 

1210 00374 045 101 040 ERMS4: .ASCIZ /%A CRC/ 

1211 00375 045 101 040 ERMSS: .ASCIZ /%A DATA/ 

ele 00376 045 101 040 ERMS6: .ASCIZ /%A SEEK/ 

1213 003774 045 101 040 ERMS7: .ASCIZ /%A DELETED DATA/ 

1214 SERMS8: .ASCIZ /%A 8 2/ 

1215 “ERMS9: .ASCIZ /%A 9 2/ 

1216 004015 045 101 040 ERMS10: .ASCIZ /%A FILL BUFFER/ 

1217 004035 045 101 040 ERMS11: .ASCIZ /%A EMPTY BUFFER/ 

1218 004056 045 101 040 ERMS12: .ASCIZ /ZA INTERRUPT-NO "DONE" BIT/ 
1219 004112 045 101 040 ERMS13: .ASCIZ /%A ‘DONE’ BIT-NO INTERRUPT/ 
1220 004146 045 101 640 ERMS14: .ASCIZ /%A ERROR BIT NOT SET- 

1221 004177 045 101 040 ERMS15: .ASCIZ /%A ILLEGAL ERROR CODE/ 
1222 004226 045 101 ERMS16: .ASCIZ /%A DISK DENSITY MIXED OR WRG/ 
1223 004264 045 101 040 ERMS17: .ASCIZ /%A RD ERR CODE-ERR WRG/ 
1224 sERMS18: .ASCIZ /%A 18 2/ 

1225 004314 045 101 040 ERMS19: .ASCIZ /%A WORD COUNT/ 

1226 004333 045 101 040 ERMS20: .ASCIZ /ZA SIDE NOT READY/ 

1227 004356 045 101 040 ERMS21: .ASCIZ /%A DRIVE NOT READY/ 

1228 004402 045 101 040 ERMS22: .ASCIZ /%A WRONG SIDE RESPONDING/ 
1229 004434 045 101 040 ERMS23: .ASCIZ /%A WRONG DRIVE RESPONDING/ 
1630 004467 045 101 04 ERMS24: -ASCIZ /%A DENSITY/ 

1231 004503 45 101 40 ERMS25: .ASCIZ /%A DISK=MIXED DENSITY/ 
1232 004532 045 101 040 ERMS26: .ASCIZ /%A DELETED DATA/ 

1233 004553 045 101 040 ERMS27: .ASCIZ /%A CSR-/ 

1234 004564 045 101 040 ERMS28: .ASCIZ /%A DBR-/ 

1235 004575 045 101 040 ERMS29: .ASCIZ /%A DENSITY DID NOT SET/ 
1236 004625 045 101 040 ERMS30: .ASCIZ /%A SET DENSITY KEYWORD/ 
1237 004655 045 101 040 ERMS31: .ASCIZ /%A AC LOW/ 

1238 004670 045 101 040 ERMS32: .ASCIZ /%A ALGO2 FAILED/ 

1239 004711 045 101 040 ERMS335: .ASCIZ /ZA TRACK ADDRESS/ 

1240 004733 045 101 040 ERMS34: .ASCIZ /%A SECTOR ADDRESS/ 

1241 3ERMS35: .ASCIZ /%A 35 2/ 

124e TERMS36: .ASCIZ /%A 6 2/ 

124 TERMS37: .ASCIZ /%A / 

1244 ZERMS38: .ASCIZ /%A 38 2/ 

1245 “ERMS39: .ASCIZ /%A° 39 2/ 

1246 004756 045 101 040 ERMS40: .ASCIZ /%A AC LOW FATAL/ 

1247 004777 045 101 040 ERMS41: .ASCIZ /%A WORD COUNT OVERFLOW/ 
1248 005027 045 101 040 ERMS42: .ASCIZ /%A NON-EXISTENT MEM/ 

1249 005054 045 101 040 ERMS43: .ASCIZ /%A NON=-PROCESSOR REQ/ 

1250 00510, 045 101 040 ERMS44: .ASCIZ /%A PRIORITY L 

1251 00512 045 101 040 ERMS45: .ASCIZ /%A DATA BUFF / 

1 5 005153 045 101 040 ERMS46: .ASCIZ /%A HARDWARE SELF DIAG/ 

126 005202 045 101 040 ERMS47: .ASCIZ /2A “TR BIT TI 

1254 005230 045 101 040 ERMS48: .ASCIZ /%A ° "BIT TIME OU 

1255 005260 045 101 040 ERMS49: .ASCIZ /%A NO BUS “INI E"’ 
1256 005307 045 101 040 ERMSSO: .ASCIZ /ZA NO PROG "INIT DONE‘ 
1257 005337 045 101 040 ERMSS1: .ASCIZ /%ZA ‘DONE’ SET=>WAITING FOR ‘TR’ BIT/ 
1258 SERMS52: .ASCIZ /%A 2/ 

1259 .EVEN ;800. BYTES=->680. 





an a ee -- 


> 


GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 29-1 
= ERROR MESSAGES 
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SEQ 43 


MIN 
o 
pay 


ao 
wr 


: BIT-NAMES FOR THE DEVICE REGISTERS 


bu mm. . VANCE TABLE ADDRESS POINTER 
ay a ADDRESS poenren 
FRU TABLE ADDRESS THIS TEST SEQ=TABLE ADR PTR+TEST 


00.00 0000 
Wn 


e 

264 

$03 ~SBTTL = MOD U.SFT.FRU = GET & PRINT FRU'S IDENT 

See BGNSUB = te tad FRU=<GPFRU> 

268 IF FINI FLAG CAJ 
269 THEN-GET au FRU TABLE ADDRESS 

270 Latow’ tre CODE NOT=0 & FLAGS=PRINT ERROR CODE SET (8) 
271 THEN=GET ERROR CoD 

272 CLEAR TOP BYTE & SHIFT RT pA 4 ADDRESSING 
273 GET ERROR CODE FRU TABLE A 

274 FIND hiv CODE FRU TABLE ADDRESS FROM TABLE 
275 SET TABLE ADDRESS 

276 ELSE-GET TEST TABLE AD ee oor 

277 DOW pee TABLE ENT =~1 {CJ 
sie buen VANCE TABLE ADDRESS POINTER 

$ 0 DOWHILE TABLE ENTRY NOT=-1 [0] 
2 

2 

2 

2 


ae 


ENDIF 

ENDIF 
SETUP & PRINT FRU HEADER “ 
IF FRU TABLE ENTRY=0 CF 
: THE G 


N-IF +s) PROCESSOR 
: THEN-SET FRU PRINT=INTERFACE-M8029 (LSI) 


nN 
& 


ae 
ct i 


33 


29 

238 wit FRU PRINT=INTERFACE-M8256 (UNIBUS) 
295 CALL FRU PRINT 

296 ELSE=SET FRU PRINT= STABLE ENTRY 

29 CALL FRU PRINT 


3 
co~ 


S3 


ENDIF 
ADVANCE TABLE ADDRESS 
NDDO 


;_ENDSUB 


Be Se Se Se Se Ge Se Ge Fe Se Ge Se Ge Ge Se Se Se Ge Se Ge Ge Se Ge Se Ge Ge Ge Se Ge Se Se Se Ge Se See Ses 


S55 
wr 
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SEQ 44 
GLOBAL AREAS MACRO M1200 14=DEC=82 16:33 PAGE 31 
= MOD U.SFT.FRU = GET & PRINT FRU'S IDENT 


1306 005404 000240 PRTFRU: NOP : 
1307 909406 005737 002454 IAFRU: TST FIN ‘IF FINI FLAG 

1308 005412 001404 BEQ IBFRU 3SET, THEN 

1309 005414 012737 006640 005610 MOV ATOFTO,FRUTAD SET FRU TBL ADR=FINI FRU TBL ADR 
1310 005422 31 R EAFRU WHILE ‘E° 

1311 005424 105737 002442 IBFRU: TSTB XERUUT TIF ERROR CODE 

1318 005430 00147 BEQ LBFRU :NOT=0, 

1313 005432 032737 000200 002476 BIT WRECFLG,FLAGST :FLAGS-READ ERROR CODE BIT 

1314 005440 001406 BEQ LBFRU iSET TH 

1315 005442 004737 017106 CALL  GTECOF “CALL GET ERROR CODE OFFSET 

1316 005446 016137 006660 005610 MOV TOFTB(R1),FRUTAD ;GET ERROR CODE FRU TABLE ADDRESS 
1317 005454 000414 BR EAFRU :8R TO WHIL 

1318 005456 013701 002466 LBFRU: MOV TSTID,R1 [GET TEST ee ADDRESS 

1319 0054 005721 WCFRU: TST (R1)+ :D0 WHILE TABLE ENTRY NOT=-1 
1320 005464 100376 BPL WCFRU ADVAN tf TABLE ADDRESS 

1321 005466 005721 WDOFRU: TST (R1)¢ D0 WHILE TABLE ENTRY NOT=-1 
1328 005470 10037 BPL WOFRU TADVANCE TABLE ADDRESS 

1323 005472 013702 002470 MOV TCMDCT,R2 3GET TEST COMMAND CT 

1324 005476 006302 ASL R : I 

1325 005500 060201 ADD R2,R1 [SETUP FRU TABLE ADDRESS 

1326 005502 011137 005610 MOV (Ri), FRUTAD sSET FRU TABLE ADR=ABOVE ADDRESS 
1327 005506 012701 005650 EAFRU: MOV #FRUMOO,R1 :SET FRU MSG HEADER 

1328 005512 004737 002550 CALL  PRTBOS iC ALL PRINT BASIC-NO ARG 

1329 005516 105777 WEFRU: TSTB § a@FRUTAD WHILE TABLE ENTRY 

1330 005522 100430 BM1 EEFRU shots 

1331 005524 105777 000060 IFFRU: TSTB a@F RUTAD IF TABL ENTRY 

133¢ 0055 901014 BNE LFFRU ZEQUALS 0, THEN 

1333 005532 032737 000400 002500 IGFRU: BIT @LSIFLG,FLAGSP IF LSI FLAG BIT-PROGRAM FLAGS 
1334 005540 001403 BEQ :$ HEN 

1335 005542 012701 005713 MOV #FRUMOA,R1 3SET “LSI INTERFACE MSG 

1336 005546 000402 BR EGFRU 0 END 'G’ 

1337 005550 012701 005746 LGFRU: MOV #FRUMOB,R1 SET UNIBUS INTERFACE MSG 

1338 005554 004737 002550 EGFRU: CALL PRTBOS [CALL PRIN T BASIC=-NO ARG 

1339 005560 000406 BR EFFRU BR T ND 

1340 005562 117701 00002 LFFRU: MOVB  a@FRUTAD,R1 + SETUP PRINT FRU MSG OFFSET FROM TABLE 
1341 005566 016101 00561 MOV FRUTBM(R1),R1 SET FRU MSG ADR TABLE 

1348 005572 737 00255 CALL = PRTBOS SCALL PRINT BASICANO we 

1343 005576 005237 005610 EFFRU: INC FRUTAD ZINCREMENT FRU TABLE ADDRESS 
1344 005602 00074 BR WEF RU 3END DO E* 

1345 005604 000240 EEFRU: NOP 

1346 005606 000207 APTFRU: RETURN tRETURN 

1348 005610 000000 ERUTAD: 0 ;FRU TABLE ADDRESS 





| SEQ 45 
|GLOBAL AREAS | MACRO M1200 14=DEC=82 16:33 PAGE 33 
= MOD U.SFT.FRU = GET & PRINT FRU'S IDENT 
| 1352 005612 000000 _ FRUTBM: .WORD 
| 1358 005614 006001 “WORD 
1354 005616 006035 “WORD FRUM2 
1355 005620 006070 “WORD FRUMS 
1356 005622 006120 “WORD FRUMG 
1387 005624 006140 “WORD FRUMS 
1358 005626 006173 “WORD  FRUM6 
1389 005680 006221 “WORD FRUM? 
1360 005632 006255 “WORD FRUMB 
1361 005634 006824 "WORD 
1362 005636 006361 “WORD  FRUM10 
1363 005640 006426 “WORD FRUM11 
1364 005642 006451 “WORD FRUMI 
1365 005644 0065 "WORD FRUMI 
1366 005646 006544 “WOR UM 
1368 
1369 LSBTTL = FRU MESSAGES 
1371 005650 045116 04S FRUMOO: .ASCIZ /3NEA. POSSIBLE FAILING “FRU'S": EN/ 
1372 005713 «045. ~«Ss«d128.~=Ss«61sFRUMOA: LASCIZ /%S11%A INTERFACE = M8029%N/ 
1373 005746 045 193 061 FRUMOB: LASCIZ /2S11%A INTERFACE - M8256% 
137% 006001 045 133 061 FRUMI: :ASCIZ /%S11%A CON = M97442N/ 
1375 006035 045 193 061 FRUM2: “ASCIZ /%S11%A RoW ELECT = M774S2N/ 
1376 006070 045 153 061 FRUMS: “ASCIZ /%S11%A PHYSICAL DRIVEN/ 
1377 006120 045125061 FRUNG: CASCIZ /ESTIZA CABLE 
1378 006140 S135 61 FRUMS: °ASCIZ /3SI1EA POWER SUPPLY-H7712N/ 
1379 00617 045 = «133 61 FRUM6: “ASCI2 /2S11%A BAD DISKETT 
1380 006227 «OGSs«d193.OGTCERUML LASETS JESTIZA ENTERFACE. SULT CHESEN/ 
1381 006255 045 193 061 FRUMB: “ASCIZ /%S11%A NPR JUMPER - PDP-11 BACKPLANEZN/ 
1382 006324 045 193 061 FRUM9: “ASCIZ /%S11%A CONTROLLER Swi TCHESZN/ 
1383 006361 045 133 061 FRUMIO: [ASCIZ /%S11%A INTERFACE->CONTROLLER CABLE%N/ 
1384 006426 045 1293 061 FRUMII: -ASCIZ /%S11%A DOOR OPENZN/ 
1385 06451 045. «125061 FRUMI2: CASCIZ /4SITEA BROKEN DRIVE BELTEN/ 
1386 006504 045 153 061 FRUMI3: (ASCIZ /%S11%A DRIVE MOTOR - AC POWERIN/ 
1387 006546 045-125-061 FRUMTG: :ASCIZ /3SITKA POWER CORD” BLOUN FUSE. DRIVE POWER, POWER SUPPLY 2N/ 
1400 “EVEN ;506. BYTES 


t. - 





a 
i 
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SEQ 46 
GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 35 
FRU CALLOUT = PRESETUP FOR TESTS 
1403 .SBTTL = FRU CALLOUT = PRESETUP FOR TESTS 
| = 1405 000000 TN=0 
1406 006640 INF CTLs TOF TO s INTERFACE & CONTROLLER 
1407 006640 FRUTB 0,INTERF,CONTRL, INTE CB 
006640 000 TOFTO: .BYTE NTERF 
006641 002 BYTE LONTRL 
006642 024 “BYTE INTFCB 
a 006643 377 “BYTE =1 
1409 006644 INTONL=TOF T40 y INTERFACE ONLY 
1410 006644 FRUTB. 40, INTERF 
006644 000 TOF T4O: -BvTE INTERF 
mee 006645 377 YTE 1 
1412 006646 CTLINF=TOFT41 ZCONTROLLER @ INTERFACE 
1413 006646 FRUTB 41, CONTRL , INTERF. 
006646 002 TOFT41: .BYTE  CONTRL 
006647 000 <BYTE INTERF 
a. 006650 377 “BYTE =1 
1415 006651 CTLRWE=TOF 142 
1416 006651 FRUTB 42, CONTRL -R WELEC 
006651 002 -BYTE CONTRL 
006652 “BYTE RWELEC 
006653 377 “BYTE =1 
CTLONL=TOF 143 
0066 FRUTB. 43, CONTRL INTFCB 
TOFT -BYTE CONTRL 
INTFCB 


-EVEN 








[o> a na ne 


I 4 





SEQ 47 
|GLOBAL AREAS — MACRO_M1200 14=DEC=~82 16:33 PAGE 37 
= FRU CALLOUT = PRESETUP FOR TESTS 
1424 ; ERROR CODE = FRU CALLOUT ADDRESS TABLE 
| =: 1426 006660 000000 TOFTB: .WORD 0 
1427 006662 006736 “WORD TOFT1 
1428 006664 006742 “WORD TOFT2 
1429 006666 000000 “WORD 0 
1430 006670 006746 “WORD TOFT4 
1431 006672 006751 “WORD TOFTS 
1438 006674 00: “WORD 
1433 006676 00675 “WORD © TOFT? 
1434 006700 WORD 
1435 006702 006763 <WORD TOFT11 
1636 006704 006770 WORD TOF Tig 
1437 006706 006776 “WORD - TOFT1 
1438 006710 “WORD 0 
1439 006712 007002 “WORD TOFT15 
1440 006714 7006 WORD TOFTIG 
1441 006716 00701 “WORD -TOFT1 
146g 006720 007016 “WORD TOFT20 
1443 006722 “WORD 0 
1444 006724 007022 “WORD TOFT2 
1445 006726 007025 [WORD TOFT 
1446 006730 007030 “WORD TOFT24 
1447 006732 007035 “WORD © TOF T25 
1448 006734 177777 “WORD =1 
1451 .SBTTL = FRU CALLOUT = PRESETUP FOR ERROR CODE 
1453 000000 TN=0 
1454 006736 FRUTB 1, PHYDRV, CONTRL RWELEC 
006736 006 TOFT1: .BYTE | PHYDRV 
006737 00 .BY CONTRL 
006740 004 "BYTE RWELEC 
006741 377 “BYTE =1 
1455 006742 FRUTB 2, PHYDRV, CONTRL RWELEC 
00674 006 TOFT2: .BYTE | PHYDRV 
00674 002 -BYTE CONTRL 
006744 004 “BYTE  RWELEC 
0067 377 ‘BYTE =1 
1456 006746 FRUTB 4, INTERF ,CONTRL 
00674 000 TOFT4: .BYTE | INTERF 
006747 002 -BYTE CONTRL 
006750 377 <BYTE =1 
1457 006751 FRUTB 5 RUELEC PHYDRV, CONTRL 
006751 004 TOFTS: .BYTE  ‘RWELEC 
ire 609 “BYTE CONTRE 
754 99 “BY © 
1458 006755 FRUTB 7? DISKET RWELEC,PHYDRV, CONTRL, INTERF 
006755 014 TOFT?: .BYTE DISKET 
006796 004 BYTE EC 
75 0 "BYTE PHYDRV 
760 00 “BYTE CONTRL 
761 0 “BYTE INTERF 
7 BYT 1 


ss Pie 
1459 76 FRUTB = 11, ,DISKET ,RWELEC ,PHYDRV,CONTRL 


cc OC ee -——- — 


| GLOBAL AREAS MACRO M1200 Ne~DEC=B2 16: 33 PAGE 37-1 
= FRU CALLOUT = PRESETUP FOR ERROR C 


| 006763 14 
64 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


FRUTB 


-EVEN 





TOFT11: gt DISKET 


YTE  RWELEC 
"BYTE PHYDRV 
:8 CONTRL 
2 geet RWELEC ,PHYDRV, CONTRL ,POWRSP 
OF ) DISKE 
“BY RWELE 
“BYTE PHYDRV 
“BYTE CONTRL 
BYTE POURSP 
13 o1sKer RWELEC, CONTRL 
TOFT13: —E  bdISK 
“BY RWELE 


“BYTE 
RWELEC, PHYDRV, CONTRL 
115: .BYTE  RWELEC 


“BYTE 

16, RWELEC, PHYDRV, CONTRL 

TOFT16: .BYTE RWELEC 
“BYTE PHYDRV 
-BYTE CONTRL 
“BYTE =1 

17, DISKET, RWELEC, CONTRL 

TOFT17: .BYTE  DISKET 
<BYTE RWELEC 
-BYTE CONTRL 

20, DISKET ORUELEC CONTRL 

TOF T20: BYTE bisker 


: -1 
23, INTERF L 
TOFT23: .BYTE INTERF 


BYTE 
24 p sxer CONTRL, INTERF ,RWELEC 
TOFT24: .BYTE  DISKET 

“BYTE CONTRL 

-BYTE INTERF 

, RWELEC 
25. IWTERE CONTRL 
TOFT25: .BYTE INTERF 


-BYTE CONTRL 
YTE 1 


SEG 48 





GLOBAL AREAS MACRO M1200 ve’ Esack 16:33 PAGE 39 
MOD U.ERR.PCE = PRINT COMMAND E 


ere -SBTTL = MOD U.ERR.PCE = PRINT COMMAND ERROR 
; 1476 : BGNSUB 
' 1477 : sete & PRINT COMMAND FORMAT MESSAGE 
| 1478 : GET COMMAND 
, 1479 3 IF INITIALIZE COMMAND 
| 1480 3 : THEN-SETUP INIT ‘C G 
| 1481 : ELSE-CLEAR TOP BITS & GO BIT 
1482 : : C TOP BITS & GO BIT 
re + ; GET COMMAND MSG ADDRESS FROM TABLE (INDEXED BY COMMAND) 
1485 : CALL PRINT 
1486 : SETUP & PRINT END OF COMMAND ERROR 
1487 ; IF dS i COMMAND 
1488 3 : THE ofr oh: RINT FLAGS=PRINT PROTOCAL SET 
re 2 ; : THEN-SETUP & PRINT PROTOCOL ERR 
1491 3 E NDIF 
1492 3 ENDSUB 
1494 
1495 007040 Sogese PRTCDE: NOP : 
1496 007042 012701 007204 MOV #CMFTMS,R1 ;SETUP_ COMMAND FORMAT MESSAGE 
1497 007046 004737 002550 CALL PRTBOS 3CALL PRINT BASIC-NO ARG 
1498 007052 013702 002422 MOV ERRCMD,R 
1499 007056 032702 040000 IAPCE: BIT #B1T14,R SIF sg BIT 
1500 Bor Obs 00140 BEQ LAPCE sSET, 
1501 007064 012701 007452 MOV a aa 3SET PROGRAMMED INIT MSG 
1502 007070 012702 000012 MOV #12,R2 3SET R2_TO SHOW COMMAND WITH NO PROTOCOL 
1503 007074 000404 BR yas 0 END ‘a 
1504 007076 042702 177761 LAPCE: BIC #177761 ,R2 CLEAR TOP BITS & GO BIT 
1505 007102 016201 7 MOV CMDMSG(R2),R1 GET COMMAND MSG ADR FROM TABLE 
1308 Sopigs 37 002550 EAPCE: CALL PR sCALL PRINT BASIC-NO ARG 
1507 007112 012701 007216 MOV #CMERMS ,R1 sSETUP **COMMAND ERR** MSG 
1508 007116 004737 002550 CALL oT se0s CALL _PRINT BASIC-NO ARG 
1509 007122 peeree 000012 IBPCE: CMP #12,R sof R2 CONTAINS PROTOCOL TYPE COMMAND 
1510 007126 00141 BEQ xPC THEN 
15117 0071 032737 000010 002500 ICPCE: BIT #PROPRT ,FLAGSP iI PRINT PROTOCOL FLAG=FLAGSP 
1216 007136 001411 BEQ XPC HEN 
1513 007140 013702 2472 MOV PROTCT,R2 SETUP PRINT PROTOCOL CNT 
1514 007144 012701 7502 MOV #CMDPE ,R1 SETUP PRINT PROTOCOL ERR MSG 
1515 007150 ge i eh CALL PRTX1S sPRINT MSG 
1516 007154 042737 20 002460 BIC #CMDERR,TYPERR ;CLEAR TYP ERR COMMAND ERROR 
13? 007162 0002 XPCE: RETURN 3RETURN 





a se ae — 


SEG 49 





| SEQ 50 
GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 41 
‘= COMMAND ERROR MESSAGE TABLE 


| 1321 ~SBTTL = | COMMAND ERROR MESSAGE TABLE 
| 1358 007164 007237 éMDMSG: .WORD  CMDMO 
1524 0071 007255 eWORD CMDM1 
1525 007170 7276 WORD CMDM2 
| 9526 0071 007313 eWORD CMDM3 
1527 007174 007331 ~WORD CMDM4 
1528 007176 007347 ~WORD CMDMS 
1529 007200 007374 ~WORD CMDM6 
1530 007202 007430 ~WORD CMDM7 
1531 007204 045 116 045 CMFTMS: .ASCIZ /%N%S6%A->/ 
1532 007216 045 101 040 CMERMS: .ASCIZ /%A COMMAND ERROR/ 
1533 007237 045 101 106 CMDMO: .ASCIZ /ZAFILL BUFFER/ 
1534 007255 045 101 105 CMDM1: .ASCIZ /%AEMPTY BUFFER/ 
1535 007274 045 101 127 CMDM2: .ASCIZ /ZAWRITE SECTOR/ 
1536 007313 045 101 128 CMDM3: .ASCIZ /ZAREAD SECTOR/ 
1537 007331 045 101 123 CMDM4: .ASCIZ /%ASET DENSITY/ 
1538 007347 045 101 122 CMDMS: .ASCIZ /ZAREAD MAINT. STATUS/ 
1539 007374 045 101 127 CMDM6: .ASCIZ /ZAWRITE SECTOR-DELETED DATA/ 
1540 007430 045 101 122 CMDM7: .ASCIZ /ZAREAD ERROR CODE/ 
1541 007452 045 101 120 CMDM8: .ASCIZ /ZAPROGRAMMED INITIALIZE/ 
134@ 007502 045 116 045 CMDPE: “ASCIZ /ENZSBXAPROTOCOL FAJLED-WAITING TO PASS WORD #%01/ 
1 544 OS SS SSS OSS SS SSS TDS Se BSA GH SSeS SSVSsBe nO BS OcGenraEnSeVesereaaeornwerarnnrenrennseae > 


en ae eee gee eee ee ee ee er ee ne en er en ee eee ee se 





SEQ 51 


GLOBAL AREAS MACRO M1200. 14=DEC=82 16:33 PAGE 43 
oat U.ERR.PRE = PRINT REGISTER ERROR 


$47 .SBTTL = MOD U.ERR.PRE = PRINT REGISTER ERROR 

549 4 

550 007564 000240 PRTREG: NOP 

551 0075 012701 007620 MOV #PRTGHS R1 ‘SETUP REGISTER | MESSAGE 
552 007572 01 208 002440 MOV T Re SSETUP REG A 

553 007576 013703 002436 V RECEP. R *SETUP RE ek Cte 

554 007602 004737 002612 CALL PRT :CALL PRINT BASIC=2 ARG 
555 007606 005037 002440 LR REGACT CLEAR OL 

556 007612 005037 002436 CLR REGEXP ECLEAR | OLD RESULTS 

557 007616 000207 RETURN RET 

559 007620 045 116 045 PRIGMS: .ASCII] /ZNZS6%AREG ACTUAL =%0%N/ 

5 007646 045 12 066 -ASCIZ /%S6%AREG EXPECT=%0%N/ 

5 . (See RD Ry Re OS, See RE Ee PY SE OR Ge Ge ee Ge Ge ie Om we Gee GD SE Ome ee Om Ue OE aR SY Oe ED DG ar ee Sn te ee SST SF SN OBE eserme ewan weae Rae => 


-SBTTL = MOD U.PRT.SCP = PRINT SECTORS 








ek as os a os ss to st es ss tS ts So ss eS Ys SS SS I YH 








60 
61 

6 

56 

564 

36? GNSUB 

567 : IF READ ERROR CODE FLAG SET 

568 : : THEN-SET UP PRINT EXPECTED SECTOR 

569 : : SETUP PRINT DEVICE SECTOR 

570 : : CALL "prin NT 

571 ; ENDIF 

572 : ENDSUB 

575 007674 909240 PRTSEC: NOP : 

376 007676 050737 000200 002476 JIASCP: eit #RECFLG.FLAGST z1f READ ERROR CODE FLAG 
578 007706 013702 002376 MOV SECTOR, R2 TSETUP EXPECTED SECTOR 
579 007712 012701 01 156 MOV #EXMS,R1 :SETUP EXPECTED MSG 
580 007716 004737 2350 CALL  PRTBOS [CALL PRINT BASIC=0 ARG 
581 007722 912701 0077 MOV #ADSCMS,R1 SSETUP SECTOR M 

382 7726 004737 9025 CALL  PRTBIS [CALL PRINT BASIC=1 ARG 
583 007732 113702 44 MOVB =‘ TSEC, R2 SSETUP DEVICE SECTOR 
584 007736 gi2701 10220 MOV #TGMS,R1 [SETUP TARGET MSG 

585 00774 7 2 0 CALL  PRTBOS SCALL PRINT BASIC-0 ARG 
286 po rnes te } $025 PALL eareien SCALL. PRINT BAS BASIC 1 ARG 
388 007756 000207 XSCP: RETURN RETURN 

590 007760 045 101 040 ADSCMS: .ASCIZ /%A SECTOR=%D2%A./ 

591 EVEN 


re cee nee me en me ee = ee ee ee ee ee eee | - 








GLOBAL AREAS 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
a 
161 
1614 010002 
1615 010006 
1616 010014 
1617 Biooss 
1618 01002 
1619 81008 
i Hi 
ie Ss 
1634 01005 
1s Sis 
is Si 
1 0100 
16 Sioa 
1631 0101 
16 101 
16 1011 
16 1011 
1635 0101 
16 101 
is sie 
1639 10120 
1640 010144 
1641 oF 
ioe 10154 
164 
1646 1O1%6 
1645 0101 
444 1 


MACRO M1200 
MOD U.PRT.TKP = PRINT TRACKS 


14=DEC=82 16:33 PAGE 45 


-SBTTL = MOD U.PRT.TKP = PRINT TRACKS 


: BGNSUB 


CALL _FRINT UNIT IDENT 

IF READ ERROR CODE FLAG SET 

: THEN-SETUP PRINT EXPECTED TRACK 
: CALL _ PRINT 1 PARAMETER 


IF DRIVE #1 SELECTED 
: THEN-SETUP CURRENT TRACK DRV1-PRINT 
ELSE-SETUP CURRENT TRACK DRVO-PRINT 


ENDIF 

CALL _PRINT 1 PARAMETER 

SETUP PRINT DRIVE TARGET TRACK 
T_1_PARAMET 


A 
saat > tt of PRINT ERROR ON TRACK 


ALL PRINT 1 PARAMETER 


ENDSUB 
020600 PRTTRK: CALL 
000200 002476 IATKP: BIT 
2374 MOV 
010156 MOV 
002550 CALL 
$4983 CALL 
isate IBTKP: TST 
BEQ 
002445 Move 
00244 LBTKP: MOVB 
91 177 EBTKP: MOV 
538 move 
b025%0 cat 
ue Bi 
1 MOV 
$35 CALL 
002374 LATKP: MOV 
i ad 
MOV 
CALL 
XTKPRT: RETURN 
116 ; Exms: ASC! 
116 CDMS: -ASCI 
ao Tem<- eer 
116 5 ERTKAS: .aSC] 
101 G ADTK#S: [ASCI 


—_——_—_ oe ee ae TK eS ee «| 





PRTDID 7C 
wo 2IF READ ERROR CODE FLAG 


SFLAG SET 

TRACK, R2 :SETUP EXPECTED TRACK 
#EXMS.RI [SETUP EXPECTED MS 
PRTBOS [CALL PRINT BASIC-0 AR 
#ADTKMS,R1 SSETUP PRINT TRACK 
PRTB1S CALL PRINT BASIC=-1 PAR. 
DRIVE SIF DRIVE #1 

BTKP :SELECTED, THEN 
CTK1,R2 SSETUP CUR TRK D1-PRT 
BTKP 7BR TO END ‘B° 
CTKO,R2 [SETUP CUR TRK DO- 
CDMS,R1 ZSETUP DRIVE CURRENT MSG 

TBOS SCALL PRINT BASIC-0 
#ADTKMS,R1 SSETUP PRINT TRACK 

TB1$ [CALL PRINT BASIC-1 PAR. 
TTRK,R2 [SETUP TARGET TRAC 
aTGRs 1 3SETUP TARGET MS 

TBOS [CALL PRINT BASIC-0 ARG 
#ADTKMS,R1 [SETUP PRINT TRACK 
PRTB1S [CALL PRINT BASIC=-1 PAR. 
XTKPRT 3BR TO EXIT 
TRACK ,R2 [SETUP ERROR TRACK 
#ERTKASR1 [SETUP ERROR TRACK MSG 
PRT [CALL PRINT BASIC=C ARG 
@ADTKMS RI [SETUP PRINT TRACK 
PRTB [CALL PRINT BASIC=-1 PAR. 


/TNTS6TA EXPECTED/ 
/ENESOZA CUR DRV/ 
“CATA | Paarets 


/EnNZA ERROR ->/ 
/ZA TRACK=2D22A./ 


a a a ee ree oo ne ee oe 





SEQ 53 | 
GLOBAL AREAS MACRO M1200 14-DEC~82 16:33 PAGE 47 | 
MOD U.ERR.CLE = CLEAR ERROR 


1635 ~SBTTL = MOD U.ERR.CLE = CLEAR ERRORS 

1655 ; BGNSUB 

1656 ; CLEAR ERROR NUMBER 

1657 : CLEAR ERROR TYPE 

1658 ; CLEAR ERROR BLOCK 

1659 : CLEAR FIN 

1660 : CLEAR ABORT 

1661 : ENDSUB 

166 

1664 010300 000240 CLRERR: NOP 

1665 010302 005037 002442 CLR XERUUT SCLEAR Ceane ERR CODE WORD 
1666 0103 005037 002520 CLR ERRNBR CLEAR ERROR NUMBER 
1667 010312 005057 ove ig CLR ERRTYP :CLEAR ERROR TYPE 

1668 010316 012737 003502 002524 MOV #ERIDNT,ERRBLK ;CLEAR a BLOCK 
1669 010324 005037 002454 CLR FIN 7CLEAR FINI 

1670 010330 005037 002452 CLR ABORT sCLEAR ABORT 

1671 010334 042737 100000 002476 BIC WERRFLG,FLAGST ;CLEAR FLAGST ERR FLAG 
1676 010342 000207 RETURN 7RETURN 


a a a see ee - - a 


a a ee; 


2 







SEQ 54 
GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 49 
GLOBAL SUBROUTINES SECTION 


1676 .SBTTL GLOBAL SUBROUTINES SECTION 
1678 

1679 2 THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
1680 ;_THAT ARE USED IN MORE THAN ONE TEST. 
1 

1749 -SBTTL = MOD U.1.0 = RANDOM GENERATOR 
1744 : * FUNCTIONAL DESCRIPTION 

143 j- pa¥BROUTINE TO GENERATE A RANDOM NUMBER 
1758 : IMPLICIT INPUTS: NONE 

1765 + OUTPUTS: RANUM 

1771 : IMPLICIT OUTPUTS: NONE 

1778 : SUBORDINATE ROUTINES USED: NONE 
1787 * FUNCTIONAL SIDE EFFECTS: NONE 

1795 ; CALLING SEQUENCE: SUB 

1801 i: 

1802 

1809 

1815 ’ pmmemene ee —o RANDOM GcCNERATOR ee SS Se OD Om Ee me ee we ee SOD SD SS SS > & OS ww ee Oe em Se ow wD 
1816 010344 12 000001 RANGEN: MOV #1,R0 

1817 010350 063700 010432 ADD RAN1,RO 

1818 010354 063700 010434 ADD RAN2 RO 

1819 910360 942700 170000 BIC #170000,RO 

185) 010866 906100 foe RO 

1822 010370 006100 ROL RO 

1823 010372 010037 010432 MOV RO,RAN1 

1824 010376 005000 CLR RO 

1825 010400 013700 010434 MOV RANZ.RO 

1826 010404 006000 ROR 

182 910406 ROR RO 

1828 01041 06 700 010432 ADD RAN1,R 

1829 010414 2700 170000 BIC #170600, RO 

1830 010420 010037 0104 MOV RO,R 

1831 010424 910037 010436 MOV RO, RANG 

1832 0104 207 RTS PC 

1834 010432 000000 RANI: 0 

1835 010434 000000 RAN2: 0 

1836 010436 000000 RANUM: 








GLOBAL AREAS 
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MACRO M1200_ _14=DEC-82 16:33 PAGE 51 
MOD U.DEV.INT = INITIALIZE DEVICE 


eSBTTL - MOD U.DEV.INT = INITIALIZE DEVICE 
"FUNCTIONAL DESCRIPTION: SUBR TO SEND INITIALIZE TO DEVICE.-ERROR CK 


IMPLICIT INPUTS: ERROR BIT 

OUTPUTS: DEVICE INITIALIZE 

IMPLICIT OUTPUTS: 

oe gst rl stot trfichin.: COMMAND ERR CK, GET DEV. REGS, WAIT DONE 
CALLING SEQUENCE: SUBR 


INTIAL: MOV #40000, CMD sSET_INT — 
MOV ee aRKCS INIT nt 0 
CALL AWDN 360 AWAIT DONE 
XINT: CALL CDERCK CALL COMMAND ERROR CK 
CALL GETREG :CALL GET DEV REGS 
RTS PC RETURN 


+ ha - MOD U.DEV.CLD = CLEAR DEVICE 
{FUNCTIONAL DESCRIPTION: SUBR TO SEND INIT TO DEVICE = NO ERROR CK 


CIT INPUTS: _NONE 
OUTPUTS: DEVICE INITIALIZE 
IMPLICIT OUTPUTS: Pier 
SUBORDINATE ROUTINES USED: A WAIT “DONE 
FUNCTIONAL SIDE EFFECTS: 
; CALLING SEQUENCE: SUBR 


CLRDEV: MOV #40000,R1 :SET INITIALIZE COMMAND 
MOV R1,aRXCS SCLEAR DEVICE 
CALL AWDN SAWAIT 
RE TURN SRETUR 


SEG 55 


—— 


GLOBAL AREAS 


MACRO M1200 {4=DEC“Ge 16:33 PAGE 53 


= MOD U.DEV.FLB = FILL BUFFER 


co 
oo 
uw 


oOooooooooeo 
WRAP 


Bese seas SSSesesroxsesaee 
SPSERENSES 


SOCOSCoOOoOoOoOoOoOoOoOoOoooOo 


ot ss ns Ss a SS SS SS I SS SS tt SS SS SS SS a OS 
~~ tt ot ot os St So tS 


Pebob oD eh eh sh sh els) 
me ed ed ed ed ed ed 
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oo 
wn 
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OWWW ata eta ho 
SN NNN SYS SSIS 


Soeencee 


~™ 


3S 
n= 


So 
= 


sess sss scss 
m=) PoP 3 fororonrn— 


011542 


002400 
171600 


171562 


171542 


tf a4 


oSBTTL - MOD U.DEV.FLB = FILL BUFFER 
3 "FUNCTIONAL DESCRIPTION: 


IN 
IMPLICIT 
OUTPUTS: 


3CALL a bbe Soneer. CHECK 


FILBUF : oat 


IBFLB: TST 
BN 
C 

ICFLB: TST 
BN 


C 
XFILBF: CALL 


INPUTS: NONE 

FILL BUFFER TO RX 

IMPLICIT OUTPUTS: Dee “ses 

SUBORDINATE ROUTINES USED: SET COMMANDS, WAIT "DONE", WAIT “TR 
UNCTIONAL SIDE EFFECTS: 

: CALLING SEQUENCE : 


DVDNCK 
FIN 

XF ILBF 
#1,NCMD 
SETSCD 
EXTADR,CMD 
CMD ,aRXCS 
AWTR 


FIN 

XF ILBF 
WDCNT ,@RXDB 
AWTR 

FIN 


SUBR TO SEND FILL BUFFER COMMAND TO DEVICE. 


XF ILBF 
FILADR ,@RXOB 
WAIT 


CDERCK 
GETREG 
PC 


31F 


FINI F 


sNOT SET, THEN 
3SET FILC BUFFER COMMAND 
L_SET SUBSYS — = MOD U.DEV.SSC 


SSET EXT. ADR. BIT 


OMMAND 
FOR "TR" 


s¢ OMMAN' 
3CALL GET DEV REGS 
RETURN 


N 
RESS FOR OUTPUT BUFFER 
R DONE "OR INTERRUPT 


RROR CHECK 


SEQ 56 


: 
| 
| 


GLOBAL AREAS 
MOD U 


MACRO M1200 14=DEC=82 16:33 PAGE 55 


U.DEV.EMB = EMPTY BUFFER 


1921 

1956 

195 

1924 

1925 

1926 

1927 

ieee 

1980 

1931 

1932 

1933 

1934 

1935 010626 
1936 010632 
1937 010636 
1938 010640 
1939 010646 
1940 010652 
1941 010660 
1306 010666 
1943 010672 
1944 010676 
1945 010700 
1946 010706 
1947 010712 
1948 010716 
1949 010720 
1950 010726 
1951 010732 
1952 010736 
1953 010742 
1954 


eSBTTL - 


Ss 
IMPLICIT 


004737 011634 EMPBUF: CALL 
005737 002454 TST 
001035 BNE 
012737 011542 MOV 
004737 011502 CALL 
053737 002366 002400 BIS 
013777 002400 171462 MOV 
004737 012110 CALL 
005737 002454 IBEMB: TST 
001015 BNE 
013777 002370 171444 MOV 
004737 012110 CALL 
005737 002454 ICEMB: TST 
001005 NE 
013777 002360 171424 Vv 
004737 011610 ALL 
004737 011544 XEMPBF: CALL 
004737 012244 ALL 
00020 RTS 


FUNCTIONAL DESCRIPTION: 
INPUTS: _ NONE 


IMPLICIT INPUTS: NONE 
OUTPUTS: dh A BUFFER TO RX 
aregyt col E ROUTINES USED: 
FUNCTIONAL SIDE EFFECTS: 
CALLING SEQUENCE: 


DVONCK 
FI 


MOD U.DEV.EMB = EMPTY BUFFER 


SUBR TO SEND EMPTY BUFFER TO DEVICE. 


XEMPBF 
WOCNT ,@RXDB 
AWTR 


FIN 

XEMPBF 
EMPADR ,@RXDB 
WAIT 


CDERCK 
GETREG 
PC 


SETUP COMMANDS, WAIT ‘DONE’, WAIT ‘'TR’’ 


sCAly hie CHECK 


D 
DO MOD U.TR 


RO 
; THEN LOAD WORD — FOR pay" BUFFER 
3WAIT FOR "TR" O MOD U 

cP FINI _FLAG 

sEQUALS 


ZERO 
; THEN . BASE (eons FOR INPUT BUFFER 
ONE** OR INTERRUPT 


3WAIT FOR ‘D 
CALL COMMAND ERROR CHECK 
:CALL GET DEV REGS 


SEQ 57 


a esc 


SEG 58 
‘GLOBAL AREAS MACRO M1200 aie 16:33 PAGE 57 
MOD U.DEV.WRT = WRITE SUBROUTINE 


— - MOD U.DEV.WRT = WRITE SUBROUTINE 
[FUNCTIONAL DESCRIPTION: SUBR TO SEND WRITE SECTOR TO DEVICE. 
; INPUTS: NONE 
IMPLICIT INPUTS: Tee eee MODE 


: OUTPUTS: WRITE SECTOR TO R 
; IMPLICIT OUTPUTS: 


— 
ooo 
ww 
oon 


ape gat woe ieee _ SETUP COMMANDS, WAIT ‘‘DONE’’, WAIT ‘‘TR’’ 
; FUNCTIONAL SIDE EFFECT 
; ; CALLING SEQUENCE : 


Se) 
~“ 


SESEESISLEZ 


1971 010744 004737 011634 WRITE: CALL DVONCK ae | eevite READY CHECK 

1972 010750 005737 002454 TST FIN zIF FINI _FLAG 

1973 010754 001037 BNE XWRITE EQUALS at THEN 

1974 010756 oie s 000005 011542 MOV #5 ,.NCMD 3SET TO WRITE SECTOR 

1975 010764 053737 002402 011542 BIS DELDAT,NCMD +2 af WRITE DELETED DATA, IF SET 
1976 010772 004737 011502 CALL SETSCD L SET SUBSYS COMMAN 

1977 010776 004737 011462 CALL SETDCD CALL SET DEVICE COMMAND = MOD U.DEV.CMD 
1978 011002 013777 002400 171340 WRITE1: MOV CMD ,aRXCS COMMAND 

1979 011010 004737 012110 CALL AWTR 60 om’ TRANSFER READY ‘'TR’’ 
1980 011014 005737 002454 IBWRT: TST FIN sIF FINI cs. 

1981 011020 001015 BNE XWRITE EQUALS ZERO T 

1982 011022 013777 002376 171322 MOV SECTOR ,@RXDB LOAD Vie A ADDRESS 

1983 Ay 4 004737 012110 CALL AWTR GO AWAIT TRANSFER READY ‘'TR'’ 
1984 0110 005737 002454 ICWRT: TST FIN sIF FINI FLAG 

1985 011040 001005 BNE XWRITE sEQUALS ZERO THEN 

1986 011042 013777 002374 171302 MOV TRACK ,@RXDB sLOAD TRACK ADDRESS 

1987 011050 004737 011610 CALL WAIT sWAIT FOR INTERRUPT OR ‘‘DONE"’ 
1988 011054 0067357 012244 XWRITE: CALL GETREG 2 CALL GET DEV REGS 

1 011060 000207 RTS PC 3RETURN 


eee a e  ee— e 


SEG 59 
,GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 59 
- MOD U.DEV.RED = READ SUBROUTINE 


1998 -SBTTL = MOD U.DEV.RED = READ SUBROUTINE 

1995 ; "FuNcTIONAL DESCRIPTION: SUBR TO SEND READ SECTOR TO DEVICE. 

1997 ; IMPLICIT INPUTS: NONE 

1998 : OUTPUTS: READ SECTOR TO RX 

1999 ; IMPLICIT OUTPUTS: _s aoe 
2000 ; SUBORDINATE ROUTINES USED: SETUP COMMANDS, WAIT "DONE", WAIT “TR 
2001 ; FUNCTIONAL SIDE EFFECTS 

2002 CALLING SEQUENCE : 

2003 ins 

2004 

2007 011062 004737 011634 READ: CALL —DVDNCK :CALL DEVICE READY CHECK 

2008 011066 005737 002454 TST FIN 31F FINI FLAG 

2009 011072 001035 BNE  XREAD ZEQUALS ZERO, THEN 

2010 011074 022737 000007 011542 MOV #7, NCMD 3SET READ COMMAND 

2011 011102 904737 011502 CALL — SETSCD 3CALL SET SUBSYS COMMAND 

2012 O11106 004737 011462 CALL —- SETDCD 3CALL SET DEVICE COMMAND = MOD U.DEV.SDC 
2013 O11112 013777 002400 171230 READI: MOV CHD. @RXCS LOA 

2014 011120 004737 012110 CALL  AWTR iGO AWAIT TRANSFER READY 

2015 011124 005737 002454 IBRED: TST FIN 31F FINI FLAG 

2016 011130 001015 BNE XREAD ZEQUALS ZERO, THEN 

2017 011132 013777 002376 171212 MOV SECTOR,@RXDB ==: LOAD SECTOR’ ADDRESS 

2018 011140 004737 012110 CALL AWTR 760 AWAIT, TRANSFER READY 

2019 011164 005737 00245 ICRED: TST FIN 31F FINI_FLAG 

020 011150 001005 BNE READ ZEQUALS ZERO, THEN 

2021 011152 013777 002374 171172 MOV 'TRACK,@RXDB=— LOAD TRACK ADDRESS 

2022 011160 004737 011610 CALL =sWAIT 3WAIT FOR INTERRUPT OR "DONE" 

2023 011164 004737 012244 KREAD: CALL  GETREG 3CALL GET DEV REGS 

2024 011170 000207 RETURN ;RETURN 


ee es ee -  tti—t— Se SO — —- = 


| SEC 60 
|GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 61 
= MOD U.DEV.SDN = SET DENSITY 


' 
| $038 »SBTTL = MOD U.DEV.SDN = SET DENSITY 
2030 : FUNCTIONAL DESCRIPTION: SUBR TO SEND SET DENSITY COMMAND TO DEVICE. 
20 : IMPLICIT INPUTS: DENSITY 
203 : OUTPUTS: SET DENSITY TO RX 
2034 : IMPLICIT OUTPUTS: 
2035 : SUBORDINATE ROUTINES USED: SETUP COMMANDS, WAIT “DONE'’, WAIT ‘TR’ 
036 : FUNCTIONAL SIDE EFFECTS: 
2037 t CALLING SEQUENCE: 
2039 
g04e 011172 004737 011634 SETDN: CALL  DVDNCK ZCALL DEVICE READY CHECK 
2043 011176 005737 002454 TST FIN TIF FINI FLAG 
2044 011202 001024 BNE XSETON ‘NOT SET, THEN 
2045 011204 012737 000011 011542 MOV #11,NCMD [SETUP BENSITY COMMAND 
2046 011212 004737 011502 CALL  SETSCD [CALL SET SUBSYS C 
2047 011216 004737 011462 CALL  SETDCD [CALL SET DEVICE COMMAND = MOD U.DEV.SDC 
2048 011222 013777 002400 171120 MOV CMD, aRXCS [SEND COMMAND 
2049 011230 004737 012110 CALL AwTR :GO AWAIT ‘TR’ 
2050 011234 005737 002454 IBSDN: TST FIN TIF FINI FLAG JS 
2051 011240 001005 BNE XSETON 3ZERO 
2052 011242 013777 002372 171102 MOV VARIFY,@RXDB SEND VARIFY WORD 
2053 011250 004737 011610 CALL WAIT [WAIT FOR 'DONE’’ OR INTERRUPT 
2054 011254 004737 011344 XSETDN: CALL CDERCK [CALL COMMAND ERROR CHECK 
055 011260 004737 012244 CALL GETREG [CALL GET DEV REGS 
2096 011264 000207 RTS PC RETURN 


GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 63 
‘= MOD U.DEV.RST = READ STATUS 


-SBTTL = MOD U.DEV.RST = READ STATUS 
i FUNCTIONAL DESCRIPTION: SUBR TO SEND READ STATUS COMMAND TO DEVICE. 
INPUTS: NONE 


; IMPLICIT INPUTS: NONE 

; OUTPUTS: READ STATUS TO RX 

; IMPLICIT OUTPUTS: NON ‘seas naka 
; SUBORDINATE ROUTINES USED: | SETUP COMMANDS, WAIT "DONE", WAIT “TR 
; FUNCTIONAL SIDE EFFECTS: NONE 

; CALLING SEQUENCE : 


ee sseeeeee 


20 ° SO 2282S SST ST FTSS STTVSTTB®SCSFSMW*SO®F@T® SCS eT e©2TT®® OS 22 T8 SB 2ST OTS eee 2Z=D SBeocewseenee «= 


11266 006737 011634 RDSTAT: CALL _ DVDNCK CALL DEVICE READY CHECK 
11272 022737 000060 002520 CMP #NODNBT. ERRNBR :IF ERRNBR ET= 
11300 00141 BEQ XRDSTA :"'NO DONE Ne BIT THEN 
11302 01273 13° 011542 MOV #13,NCMD 3SET READ STATUS 
11310 011502 CALL  SETSCOD L SET SUBSYS COMMAND 
2079 011314 011462 CALL  SETDCD CALL SET DEVICE COMMAND = MOD U.DEV.SDC 
2080 011320 013777 002400 171022 MOV CMD, @RXCS 
2081 011326 004 011610 CALL WAIT 20 A WAIT ‘DONE’ OR INTERRUPT 
2082 011332 004737 012244 CALL  GETREG [CALL GET DEV REGS 
2083 011336 000207 XRDSTA: RETURN RETURN 


2084 jaemenenennnnnnnnnnnnenennnnnnnesenennnnananeennenenanenennnnnnananannn= 


se ee _——- 


SEG 61 


A AC SF Ee EE a LN SEE 
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|GLOBAL AREAS MACRO M1200 14=DEC=82 16:33 PAGE 65 
‘= MOD U.DEV.REC = READ ERROR CODE 


| 087 -SBTTL - MOD U.DEV.REC = READ ERROR CODE 


SEG 62 


088 :+ 
089 "FUNCTIONAL DESCRIPTION: _SUBR TO SEND READ ERROR CODE TO DEVICE. 
5090 : INPUTS: EXTENDED ADDRESS BITS, FINI FLAG, SETUP COMMAND WORD 
2091 ; IMPLICIT INPUTS: NON 
209 ; OUTPUTS: READ ERROR CODE FLAG, READ ERROR CODE TO DRIVE, READ ERROR CODE NEW CMD 
209 ; IMPLICIT OUTPUTS: a: 
209% ; SUBORDINATE ROUTINES USED: SET DEVICE CMD, WAIT, WAIT FOR “TR, GET 
2095 ; REG, CMD ERR Ck 
2096 3 FUNCTIONAL SIDE EFFECTS: NONE 
2097 : CALLING SEQUENCE: = 
2098 &. 
vt Pj 8 ee Ge te Ke OD Oe Oe Th OS ES SS DSS SOS HSN SOS SOTTO SA TRO SSSHPSNB ase SOD EMewoe aE Des sm EE Eee 
2101 011340 004737 011634 RDERCD: CALL —DVDNCK CALL DEVICE READY CHECK 
2102 011344 022737 000060 002520 CMP #NODNBT,ERRNBR IF ERRNBR NOT SET= 
103 011352 001440 BEQ  —XRDERC 3"'NO DONE BIT", THEN 
2104 011354 012737 17 011542 MOV #17, NCMD 3SET ERROR CODE COMMAND 
2105 011362 004737 011502 CALL SETSCD CALL SET SUBSYS COM 
2106 011366 vaer37 00 002400 BIC  #DENBIT,CMD  :CLEAR DENSITY BIT FROM CMD 
3107 011374 0587:7 002366 002400 BIS _ EXTADR, CMD SET EXTENDED ADDRESS BITS 
2108 011402 0137.7 002400 170740 MOV CMD, @RXCS 3 SEND > 
2109 011410 004737 012110 CALL = AWTR 3THEN GO AWAIT TR’ 
2110 011414 005737 002454 IeREC: TST FIN 31F FINI FLA 
2111 011420 001015 BNE  _XRDERC 3EQUALS ZERO THEN 
e112 011422 013777 002364 170722 MOV  - RECADR,@RXDB ==: SET BASE ADDR FOR READ ERR CODE 
115 011430 004737 011610 CALL WAIT 60 AWAIT, "DONE'’ OR INTERRUPT 
114 011434 005737 002454 ICREC: TST FIN 31F FINI FLA 
115 011440 001005 BNE  —XRDERC ENOT SET, THEN 
2116 011442 052737 000200 002476 BIS ARECELG.FLAGST SET PRINT ERROR CODE OR FLAG 
2117 011450 004737 012244 CALL’ GETREG 3CALL GET DEV REGS 
2118 011454 004737 011544 XRDERC: CALL —CDERCK SCALE COMMAND ERROR CHECK 
2119 011460 000207 RTS PC ;RETURN 
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| SEQ 63 
[GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 67 
ta 


MOD U.DEV.CMD = SETUP DEVICE COMMAN 








3133 -SBTTL = MOD U.DEV.CHD = SETUP DEVICE COMMAND 
2125 + FUNCTIONAL DESCRIPTION: SUBR TO SETUP DEVICE COMMAND WORD = I.E., 
2126 SET DRIVE & SIDE BITS 
2127 t INPUTS: NONE 
128 : IMPLICIT INPUTS: SIDE & DRIVE BITS, COMMAND 
129 + OUTPUTS: COMMAND WORD FOR DEVICE 
130 : IMPLICIT OUTPUTS: NON 
131 : SUBORDINATE ROUTINES USED: NONE 
2132 : FUNCTIONAL SIDE EFFECTS: NONE 
213 : CALLING SEQUENCE: SUBR 
2135 
2137 
2138 011462 000240 SETDCD: NOP : 
2139 011464 053737 002406 002400 BIS DRIVE CMD SSETUP DRIVE BIT 
2140 011472 053737 002410 002400 BIS SIDE, CMD :SETUP SIDE BIT 
i41 C11500 000207 RETUR RETURN 
2143 , 
lak .SBTTL = MOD U.DEV.SSC = SETUP SUBSYSTEM COMMANDS 
pet 
2146 t FUNCTIONAL DESCRIPTION: SUBR TO SETUP SUBSYSTEM COMMANDS = I.E. 
2147 : SET BITS THAT ARE NOT DRIVE RELATED 
2148 : INPUTS: NEW COMMAND 
3149 : IMPLICIT INPUTS: COMMAND, DENSITY, INTERRUPT BIT 
150 : OUTPUTS: COMMAN 
2151 : IMPLICIT OUTPUTS: LAST COMMAND, PROTOCAL CTR 
132 + SUBORDINATE ROUTINES USED: NONE 
215 : FUNCTIONAL SIDE EFFECTS: 
$135 : CALLING SEQUENCE: SUBR 
1 56 oa ae ow oe oe SS SS ED OS On as 8 Oe ee Se SO ee om = ee ese ee ae 
3137 011502 000240 SETSCD: NOP : 
158 011504 013737 002400 002424 MOV CMD,LCMD [SAVE LAST COMMAND 
2159 011512 013737 011542 002400 V NCD, CMD :SETUP NEW COMMAND 
160 011520 005037 00247 CLR PROTCT =CLEAR TEST COMMAND PROTOCAL COUNTER 
161 011524 053737 002412 002400 BIS DENSTY, CMD SSETUP DENSITY BIT 
16@ 011532 053737 002404 002400 BIS INTERT.CMD SSETUP INTERRUPT BIT 
163 011540 000207 RETURN : 
2165 011542 000000 NCMD: 0 ZNEW COMMAND 
2167 
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U.DEV.CEC = DEVICE COMMAND ERROR CHECK 


SEQ 64 


170 - SBTTL = MOD U.DEV.CEC = DEVICE COMMAND ERROR CHECK 
217 ++ 
$i : rc Tionn. DESCRIPTION: SUBR TO CHECK FOR DEVICE COMMAND FATAL ERRORS. 


175 ; OUTPUTS: INPUTS: FIN FLAG, FLAGS(NEG TEST), ERR NBR 
T OUTPUTS: ERROR CONDITION 
a ta ROUTINES USED: ERROR 
; FUNCTIONAL SIDE EFFECTS: DROP UNIT & CLEAN UP 
; CALLING SEQUENCE: SUBR 


Se Ge Se Ge Ge Ge Ge Ge Ses 
—O 
2c 
vU- 
~ < 
fa 
o 


011544 000240 CDERCK: NOP ; 

011546 005737 002454 TST FIN TIF FINI FLAG 
011552 001415 BEQ XCEC 7SET, THEN 
011554 005737 002520 TST ERRNBR TIF ERROR NUMBER 
011560 001412 BEQ XCEC :NOT=0, THEN 
011562 032737 004000 002476 BIT #NEGTST,FLAGST IF Neg TEST FLAG 
011570 001006 BNE XCEC NO THEN 
011572 004737 003060 CALL —_ ERROR CALL ERROR AOD 
sioe gee cae 
011606 000207 XCEC: RETURN [RETURN 


ROPIPININININIPINIPYUPININIAINININININNUNPNY 
Oo 0000000900 Co 
SIELSSLSSSVKALAVELSIaNSN 











GLOBAL AREAS 


Sy 
aR 


PROPININIPNNNPNNPyNofernory 
SOBVAARWN=OSRUE 
OWONOULSWI—O 


nm 
_ 


SSVKARUGSS 


RGN 


PohoRofofoononononyNfopononony 
Nm RR over yey 
_ 


o~— 
uw 
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MOD U.DEV.WAT = WAIT SUBROUTINE 


2199 


: 
: 
: 
: 


032737 000100 002400 
001403 

004737 011662 

00040 


004737 012032 
000207 


003008 

032777 000040 170504 
001005 

005 

00137 


004737 012032 
000207 


-SBTTL = MOD U.DEV.WAT = WAIT SUBROUTINE 


“FUNCTIONAL DESCRIPTION: 

INPUTS: _ DEVICE COMMAND 

IMPLICIT INPUTS: 

OUTPUTS: 

IMPLICIT OUTPUTS: NONE 

orgy t aig ROUTINES USED: WATCH & A WAIT DONE 
UNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: SUBR 


WAIT: BIT #100,CMD :1f COMMAND=INTERRUPT BIT 
BEQ 1$ 3SET, THEN 
CALL WATCH CALL WATCH DOG WAIT FOR INTERRUPT 
1$: CALL  AWDN TELSE, CALL WAIT FOR DONE 
XWAIT: RETURN RETURN 





-SBTTL = MOD U.DEV.DRC = DEVICE DONE CHECK 
* FUNCTIONAL L DESCRIPTION: SUBR TO CK IF DEVICE IS READY TO ACCEPT A CMD 
: IMPLICIT INPUTS: DONE BIT 

OUTPUTS: NONE 


: IMPLICIT OUTPUTS: NONE 
¢ SUBORDINATE ROUTINES USED: WATCH & A WAIT DONE 
: FUNCTIONAL SIDE EFFECTS: NONE 


CALLING SEQUENCE: SUBR 


DVDNCK: CLR 








R3 sCLEAR REC 
1$: BIT #DNBIT,@RXCS zIF DEVICE DONE 
BNE XDVRCK sNOT a H 
INC R3 BUMP TIMEOUT comren 
BNE 1$ 31F TIME OUT, 
BRESET semerure unit RESET. 
CALL 3CAL 
teen RETURN 3 





eee ee 


SUBR TO DETERMINE TO WAIT FOR ‘‘DONE’’ OR INTERRUPTS 


SEQ 65 





GLOBAL AREAS 
ssee 
249 
2250 
2251 
$526 
225 
2254 
2255 
2256 
ssee 
2258 
2259 
$50¢ 011662 
2263 011666 
2264 011674 
2265 011700 
5506 011704 
2267 011710 
2268 011712 
2269 011720 
2270 011722 
2271 011730 
$558 011736 
273 011740 
74 O11 ee 
75 01174 
$78 1174 
77 01175 
3 Bi 
ul 
280 01176 
281 gi 
sas 11776 
28 315000 
284 012006 
285 012014 
$568 012022 
2288 012024 
2289 012026 
2290 012030 
229 
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MOD U.DEV.WCH = WATCH DOG TIMER 


So 
= 
Ww 
“J 
Oo 
w 


cegessce 


Nortaotettatta) 


MM] 


oo 
ahd 
xXS 
WG 
SNS 


012030 
012024 
012026 
012030 
000040 


000014 
010000 


000040 


620000 


000020 
000060 


170430 


002520 
002460 


170370 


002520 
002460 


002520 


-SBTTL = 
+t 


FUNCTIONAL DESCRIPTION: 

PROCESSOR LOW PRIORITY 
DEVICE “'DONE’’ & INTERRUPTS 
TIMEOUT ERROR, NO INTERRUPT ERROR 
eon a OUTPUTS: NONE 


INPUTS: PR 
IMPLICIT INPUTS: 
OUTPUTS: DONE 


MOD U.DEV.WCH = WATCH DOG TIMER 


FUNCTIONA 
¢_CALLING SEQUENCE SUBR 


att TO WATCH DOG DEVICE *DONE*’ & INTERRUPTS 


WATCH: 

BAUWCH: 
IBUWCH: 
ICUWCH: 


LBUWCH: 


UDUWCH: BN 
UAUWCH: BN 


IEUWCH: 


LEUWCH: 
XUWCH: 


CLR 
PRI 


MOV 
SETPRI 
RTS 


DNFLAG 
On Ra. 


LBUWCH 
#ONBIT ,ARXCS 
WCH 


#INTNON, ERRNBR 
#B1T12,TYPERR 
XUWCH 


3 
IBUWCH 
R4 


BAUWCH 
+1 tt ani 


soy sats a 


3, TYPE 


wile 
#BIT4, SYSERR 
#NODNG 


T,ERRNBR 


ZCLEAR DONE FLAG 
[SET PROCESSOR PRI = ALLOW INTERRUPTS 
SET DELAY MULT 

SIF INTERRUPTS DONE FLAG 

: T, THEN 

SIF DONT BIT 

:1S NOT SET, THEN 

[SET ERROR #=NO DONE BIT 

3SET_ INTERR, BUT NO DONE ERROR 
‘BR TO MOD ‘EXIT* 


spenee ve: ania 
3D0 UNIT DELAY COUNT=0 


HEN 
$SET “ERR 2 ae NO INT 
SET D , Wt NO INTERRUPT oe 
2BR 10M 0 Aob EXIT* 
SET NO A, ~* T.0. ERROR 
SET ERR #=NO DONE BIT 
:SET PROCESSOR PRI=6 = NO INTERRUPTS 


Dx: 
DLY: 
DNFLAG: 


10 
100000 


0 


sDELAY MULT 
DELAY 
DONE FLAG 


3MOD U.2.3.4 ---= END MODULE ------------------------------------------ 





SEQ 66 


GLOBAL AREAS 


rr 
rn 
oO 
wi 


SSsz2s32 © 


230, 

$308 

2304 

es 

$308 012032 
309 012034 

see 012036 

2311 012044 

s3ig OIspes 
313 012050 

2314 012052 

$312 012054 
s16 012056 

2317 012062 

2318 012064 

2319 012072 

$359 815100 
321 012106 

2322 


————————— 
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MOD U.DEV.WON = AWAIT DONE BIT SUBROUTINE 


005204 


000040 


002474 


170304 


002520 
002456 
002454 


»SBTTL ° 


: FUNCTIONAL DESCRIPTION: 
; INPUTS: TIMEOU 


; hte gy Ht 


T PASS COUNT 


CTIONAL 
; ; CALLING SEQUENCE: SUBR 


Se Ge Ge Ge Ge Ge Ge Ge & 
NNom 
capes 

om 
o-— 


MOD U.DEV.WDON = AWAIT DONE BIT SUBROUTINE 
er TO WAIT FOR DEVICE ‘‘DONE'’ BIT 


DEVICE ‘‘DONE’* BIT, (RXCSR), DONE WAIT MULTIPLIER 
re a nes ERROR 


ovr 
TE ret ee yzcoe 
SIDE EFFECTS: 


sot DEVICE REGISTERS 


_—" 
1$: 
2s: 


3$: 


R4 

R3 
elles 
R3 

es 

R4 

 ‘ehtaclame 


#NODNBT ,ERRNBR 
SYSERR 


#B1T4, 
#1 


sRESET TIME OUT MULTIPLIER 
;PRESET TIME OUT COUNTER 
SEE IF oe SET 
ZTEMPORARY RETURN TO MONITOR 
sBUMP TIME OUT COUNTER 
:1F NOT TIMED OUT: BR 
2 INCREMENT TIMEOUT MULTIPLIER 
31F ON 2ND 
STIMEOUT PASS, THEN 
SET ERR #=NO DONE BIT 
7SET_NO DONE BIT ON SYSTEM ERROR 
EXIT THIS COMMAND 


SEG 67 


mm ne 


SEQ 68 
[GLOBAL AREAS __MACRO.M1200 14-DEC=82 16:33 PAGE 77 
> MOD U.DEV.WTR = AWAIT TRANSFER READY SUBROUTINE 
| 3325 /SBTTL = MOD U.DEV.WTR = AWAIT TRANSFER READY SUBROUTINE 
| g327 : FUNCTIONAL DESCRIPTION: SUBR TO WAIT FOR DEVICE ‘‘TR'’ BIT 
2329 : IMPLICIT INPUTS: DEVICE “'TR'', “DONE & CSR, ESR 
2330 : OUTPUTS: ‘TR’ TIMEOUT ERROR, NO DONE BIT, PROTOCAL COUNTER 
2331 : IMPLICIT OUTPUTS: NON 
2332 : SUBORDINATE ROUTINES USED: GET DEVICE REGISTERS 
2333 : FUNCTIONAL SIDE EFFECTS: NONE 
2334 : CALLING SEQUENCE: SUBR 
2335 i-- 
2336 
2339 012110 005237 002472 AWTR: INC PROTCT s INCREMENT TEST PROTOCAL COUNTER 
2340 012114 005004 CLR RG ZPRESET TIMEOUT MULTIPLIER 
2341 012116 005003 1$: CLR R3 :PRESET TIME OUT COUNTER 
g34¢ 012120 032777 000040 170222 28: BIT #DNBIT,@RXCS  ;1F DONE BIT 
2343 012126 001013 BNE :NOT SET, THEN 
2344 012130 032777 000200 170212 BIT MTRBIT,A@RXCS SEE IF TRANSFER READY SET 
2345 012136 001041 BNE rt} t1F SO: 
2346 012140 BREAK : TEMPORARY RETURN TO MONITOR 
2347 012142 005203 INC R3 ; TIME OUT COUNTER 
2348 012144 001365 BNE 2$ :1F NOT TIMED OUT: BR 
2349 012146 005204 INC RG SINCREMENT TIMEOUT MULTIPLIER 
g250 Sigtse S5izey 00006 cr Bass en 
$32) EE 93399 000001 002454 3$: MOV #1,FIN SEXIT THIS COMMAND 
2353 012164 052737 000020 002460 BIS ACMDERR,TYPERR ;*8# ERROR ON COMMAND tee 
2354 012172 013737 002400 002422 MOV CMD ,ERRCMD SSETUP ERROR COMMAND 
2355 012200 012737 000057 902520 MOV WNOTRBT.ERRNBR SET ERR #=NO “'TR' BIT 
2356 012206 052737 000200 002456 BIS #TRBIT,SYSERR :SET SYS ERR=NO TR’ BIT 
2357 012214 032777 000040 170126 BIT MDNBIT,@RXCS IF D T 
2358 012222 001004 BNE 4$ :NOT SET, THEN 
2359 012224 052737 000020 002456 BIS WBITG,SYSERR | :SET NO OONE BIT EITHER 
2360 012232 000403 BR :BR TO 
2361 012234 012737 000063 002520 4$: MOV WDNNOTR,ERRNBR :SET ERR #="DONE’’ NO "TR" 
2362 012242 000207 5$: RTS PC RETURN 








SEQ 69 


|GLOBAL AREAS MACRO M1200 14=DEC=82 16:33 PAGE 79 
= MOD U.DEV.REG = GET DEVICE REGISTERS 


$368 oSBTTL = MOD U.DEV.REG = GET DEVICE REGISTERS 
¥ FUNCTIONAL DESCRIPTION: SUBROUTINE TO GET RX02 CSR & ESR 





368 ; 
369 : E 
370 ; IMPLICIT INPUTS: DEVICE CSR & ESR 
371 : OUTPUTS: DEVICE 
237. : IMPLICIT OUTPUTS: OLD at & ESR 
237 + SUBORDINATE ROUTINES USED: NON 
2374 : FUNCTIONAL SIDE EFFECTS: 
2375 ; CALLING SEQUENCE:  SUBR 
2376 i- 
2377 
<5 Py Be SS BOP STH SWS 2 SPOS BOBT SA STS TS OO BBE BPSOB BF SHS Se SES ew KO Oe DS eae ewan oe ee Reese 
2380 012244 013737 002432 002426 GETREG: MOV RXCSR, LRXCSR ss SAVE LAST CSR 
2381 012252 013737 002434 002430 MOV RXESR.LRXESR : SAVE LAST ESR 
338¢ 012260 017737 170064 002432 MOV @RXCS.RXCSR :GET RXCSR FOR PRINT 
2383 012266 017737 170060 002434 MOV @RXDB.RXESR :GET RXESR FOR PRINT 
Saue 012274 000207 RETURN sRETURN 
2386 : 
2387 
2388 
2389 »SBTTL - MOD U.DEV.ITR = INTERRUPT HANDLER 
2391 3 FUNCTIONAL DESCRIPIION: ;DEVICE INTERRUPT HANDLER 
338 3 INPUTS: NONE , 
9 : IMPLICIT INPUTS: DEVICE “DONE BIT & INTERRUPT BIT 
394 + OUTPUTS: DONE FLAG 
2395 3: IMPLICIT Sure ss E 
23 + SUBORDINATE ROUTINES USED: NONE 
239 > FUNCTIONAL SIDE EFFECTS: NONE 
$308 3 CALLING SEQUENCE: DEVICE INTERRUPT 
400 
403 012276 012737 000001 012030 INTRHD: MOV #1, DNFLAG 3SET DONE FLAG 
404 012304 000002 RTI sRETURN FROM INTERRUPT 








p= a es + eee _ ee 


SEQ 70 
AL AREAS MACRO M1200 14=-DEC=82 16:33 PAGE 81 
U.SFT.DPT = SET DATA PATTERN 


L 


3 


-SBTTL = MOD U.SFT.DPT = SET DATA PATTERN 


PAT # SUBROUTINE DATA PATTERN 


RANDAT NO PATTERN SPECIFIED (FORCE RANDOM DATA) 
ALL ZEROS 


Bo? oP a? oT a? oF ot or ad 


DATAI ALL ONES 
FLOATO FLOATING ZERO 

T1 FLOATING ONE 
PATS? ALTERNATING BITS 

ALTERNATING PAIRS OF BITS 
RANDAT RANDOM 

37 000377 012372 STDATP: BIC #377, a#BRONPT ;CLEAR BRANCH OFFSET 
37 012654 CLR SUM 3SET UP_FOR ACCUMULATION OF CHECK SUM 
37 012660 TST PAT ZIF NO PATTERN SPECIFIED FORCE PATTERN 7 


MMINoNToNTonnonnn 
eee 
ca aed at a tt tt 
@@e Ge Se Ge Sete Se Sete tet 
NOUSWN oO 


RUN SODNOURWUSO 
SSsk 


&* Ww 
So SGOCooooooooooooooooooeo 
kk kd ad a ad od od od 


x 
¥S RSRSES 


Mronononn 
RRRRRE 
Morrone 
On 
WNW 
NUN 
NON 


3 1$ 
37 000007 012660 MOV #7,PAT 
04 012660 1$: MOV pat, R4 :GET PATTERN BITS 
04 DEC SADJUST FOR CORRECT OFFSET 


Ra 
2 B1SB R4 ,a#BRO zs INSERT OFFSET 

4 MOV ADATPAT#2, Re 7SET UP ADDRESS OF FIRST BYTE 
0 MOV WOCNT,RS SETUP WORD COUNT 

ASL R5 DOUBLE WORD COUNT FOR ADR 
2 nt ~ * paleaa ZADD at ey Hae ADR 


~ 
? 
705 
5 5 
5434 013 705 
435 012 705 000004 § tADJ. 
% 7 BRONPT: BR BRAC BY OFF Set SELECTED 
5437 0193 137 0124 JMP —s«DATAO ; £000 DA 
5438 0134 137 0124 ‘MP s«éDATAA HOO DATA BYTE 
2639 0124 137 0124 JMP Ss FLOATO ‘FLOAT A 0 THROUGH ALL 1°S 
5440 0134 137 0195 ‘MP s«#BLOATII <FLOAT A 1 THROUGH ALL 0°S 
5441 019 137 0195 
442 012 137 0195 
2448 O12 137 01 
24 037 01 
5446 01 737 01 
5447 019440 
2448 012442 01465 BEQ  —«END131 NOT =0 , THEN 


oo 

—— 
BINS ISN 

@ 

= 

m 


SBVV 
g8 


FSRUOFORSE 
R 


EE 
Resane 


$5 SSSSSSss 


VIAN 


WOR 
JMP RANDAT zRANDOM DATA BYTE 


PG: JSR PC LOAD GO LOAD THE DATA BUFFER 


on WM 
=v 


S 

S 

oS 
= 
3 

osu = " 

-_ 2 
ay 
wa 
8 
—_ 
wn 
= 
oO 
wn 
os 
ae 
“4 
QS 
: 


2449 0124 


4 
2451 012446 112737 000377 012656 BHATA1: MOVB #377,DATBYT 
452 012454 000767 BR PG 

2456 112737 000376 012656 FLOATO: MOVB #376,DATBYT SET UP A ONE 

12664 900261 XPG: SEC sSET T ait THE D 

12466 012702 000000 1$: MOV #0,R2 CLR Re cfaNeT ete AS IT TT eCLEARS alt BIT) 
12472 103001 BCC 2$ BR IF THE a ui 1S CLEARED 

12674 005202 INC R2 tSET R2 IF 

476 004 012614 2s: JSR PC LOAD 260 LOAD THE DATA BUFFER 

1 


502 5705 TST R5 sIFR 
12504 bos BEQ END131 NOT ZERO THEN 
553 TST R2 71S R2 NONZERO 
465 012514 261 SEC sVES, SET THE ‘‘C’’ BIT 


a a - 


GLOBAL AREAS MACRO M1200 14=DEC-82 
= MOD U.SFT.DPT = SET DATA PATTERN 


} 
| 
466 106137 012656 
| 246 


012656 


SR Ne 
S 
uw 
o 
WwW 
~N 


FSaRSN 
ss 
=u 


737 000125 012656 
004737 012614 
Ht 


ooooo oo oo 
rorororeroens )= fore 
VMN vit viv 
Wns && 


Nm 
S 
So 


112737 000333 012656 
000765 


hat et os ot — at 


vw vw 


012656 


rmrrroer = for 
“i 
Nm 
-~ 
_ 
w 
“ 
iw 
N 
ooo 
vos 


Ww 
ooooo 
— 


2 

2487 012610 
489 012612 000207 
2490 


737 012656 012654 
724 012656 


REY 
BUS 

ooo 
— at 
ee 
NSSNER 
S83-5 
oO 


2499 012634 113724 012654 
500 012640 005157 012654 
501 012644 113714 012654 

2502 012650 005005 

2504 012652 000207 
505 012654 000000 

2506 012656 000000 

$207 012660 000000 


16:33 PAGE 81-1 


3$: 


FLOATI: 


ROLB 
BR 


CLR 
BR 


PAT125: MOVB 


XXPG: 


JSR 
TST 
BEQ 
COMB 
BR 


PAT333: MOVB 
BR 


RANDAT: JSR 
MOVB 


JSR 
TST 
BEQ 
BR 


END131: RTS 


LOAD: 


1$: 


G 6 
DATBYT 
1$ 
DATBYT 
XPG 
#125 ,DATBYT 
PC,LOAD 
RS IF RS 
END131 sNOT ZERO THEN 
DATBYT 
XXPG 
#333,DATBYT 
XXPG 
PC ,,RANGEN ;GET RANDOM NUMBER 
RANUM ,DATBYT 
* aaa 
RP s1F RS 
END131 NOT ZERO THEN 
RANDAT 
PC sRETURN. 
DATBYT, (R4)+ :LOAD THE DATA BUFFER 
R5,R4 HAVE 124 apyies BEEN GENERATE: 
1 iIF YES, RETURN 
ENDLD IF NO, RETURN TO PATTERN GENERATOR 
SUM, (R4)+ 3PUT CHECKSUM INTO TABLE 
S sCOMPLIMENT CHECKSUM 
SUM, (R4) :PUT COMP CHECK SUM INTO TABLE 
Ss CLEAR TEMP #5 = FLAG DONE MODUL 


ENDLD: 


SUM: 8 
DATBYT: 
PAT: 0 


SEQ 71 


SEQ 72 
‘GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 83 


‘= MOD U.SFT.GTK = GET TRACK 


a .SBTTL = MOD U.SFT.GTK = GET TRACK 

| 51 - 

| 2514 012662 900240 GETTRK: NOP : 

| 315 012664 032737 000600 002510 JIAGTK: BIT #1TK, TKSCFG SIF INITIALIZE TRK IS 

516 O1e672 001423 BEQ ICGT : HEN 

9317 012674 0427 7? 000400 002510 BIC #ITK, TKSCFG SRESET INITIALIZE TRK FLG 
518 012702 013737 002336 013100 MOV 1D, TRKCNT [GET INSIDE TRACK 

| $819 015710 163737 902854 013100 SUB «OD, TRKCNT SGET OUTSIDE TRACK 

| 2520 O1g716 005237 013100 INC TRKCNT S INCREMENT # OF TRACKS 

| 9521 012722 «013737 002334 002374 MOV OD, TRACK ‘SET TRACK=0.D. 

3322 012730 005337 002374 DEC TRACK :DECREMENT TRACK 
2523 012734 042737 001000 002476 BIC MTRKDON,FLAGST :CLEAR TRACK DONE FLAG 
304 012742 032737 000004 002510 ICGTK: BIT WILTK,TKSCFG | :IF TK/SC FLAGS=ILLEGAL TRACK 
525 012750 001416 BEQ LBGTK :BIT SET, THE 
2526 012752 012737 000115 002374 MOV #77.,TRACK ZSET TRACK=77=ILLEGAL TRACK 
2527 012760 052737 001 002476 BIS MTRKDON,FLAGST SET TRACK DONE FLAG 

| 2528 012766 000443 BR XGTK :BR TO EXIT 
3529 012770 032737 002510 I8GTK: BIT #STK, TKSCFG SIF TK & SE FLAG=SEQ TRK FLAG 
2531 013000 005237 002374 INC TRACK s INCREMENT TRACK 
2532 013004 000426 BR EBGTK :BR TO END ‘8B’ 
2533 013006 004737 010344 LBGTK: CALL § RANGEN [GET A RANDOM NUMBER 
2534 013012 042737 177600 010436 BIC #177600,RANUM CLEAR ALL BUT LOW 7 BITS 
2535 013020 123737 010436 002336 IDCOMP: CMPB § RANUM, 1 [IF RANUM LARGER THAN ID ADDRESS 
2536 013026 003401 BLE ODc : THEN 
2537 013030 0007 BR LBGTK *BR TO GET ANOTHER RANDOM NUMBER 
3338 013058 123737 010436 002334 ODCOMP: CMPB = RANUM, [IF RANUM SMALLER THAN OD ADDRESS 
539 01304 2001 BGE PRESCK : THEN 
2540 013042 000761 BR LBGTK :BR TO GET ANOTHER RANDOM NUMBER 
2541 013044 123737 010436 002374 PRESCK: C RANUM, TRACK [IF RANUM EQUALS PRESENT TRACK 
2542 013052 001755 BEQ LBGTK [GET ANOTHER RANDOM NUMBER 
2543 013054 013737 010436 002374 MOV RANUM, TRACK SRANUM OK PUT IT IN TARGET TRACK 
2544 013062 005337 013100 EBGTK: DEC KCNT SIF TOTAL # OF TRACKS 
2545 013066 001003 BNE XGTK ZDONE, THEN 
2546 013070 052737 001000 002476 BIS #TRKDON,FLAGST :THEN SET TRACK DONE FLAG 
3347 013076 000207 XGTK: RTS PC : 
549 013100 000000 TRKCNT: .WORD 0 zDRV TRK TABLE LOCATOR 
350 013102 INITTK: .WORD 0 SINITIALIZE TRK FLAG 


| 
: 
| 
| 
| 
| 


-—_———_-+------------ 


| 


GLOBAL AREAS 


554 

32? 

33 013104 

558 013106 

559 013114 

560 013116 
st) SG 
ste Sel 
2564 013144 
$26? 013146 

a8 013154 
$20 013162 

568 013164 
2569 013172 
2570 013200 
$23) 013202 

276 013206 
2573 013214 
2574 013222 
2575 013224 
2576 013230 
2577 013232 
2578 013236 
2579 013244 
2580 
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MOD U.SFT.GSC = GET SECTOR 


Alone SooR—Fow 
RVR 2UroNIN =n 


eS: 


reer 
oon 
WN VIWWIN 


001000 
001000 
$a 
005510 
000001 
000033 
000001 
002000 
010344 
177740 
010436 
010436 


010436 
010436 


oe ee Cee 


002376 


MOD U.SFT.GSC = GET SECTOR 


-SBTTL = 
GETSEC: NOP 
IAGSC: BIT 
BEQ 
BIC 
MOV 
BIC 
I6GSC: TSTB 
BEQ 
ADD 
CMP 
BHI 
MOV 
BIS 
BR 
BCGSC: CALL 
BIC 
ucGsc: C€ 
BHIS 
IDGSC: TSTB 
BNE 
INCB 
EDGSC: MOVB 
XGSC: RTS 


#1ISC,TKSCFG 


#1SC Tesere 
#1,S 


5 SECTOR 
a3 38) SECTOR 


TOR 
mi SECTOR 
XGSC 


Rane 
el 40,RANUM 


ANUM, #27. 


fry FLAGST 


SIE TK/SC FLAGS=INIT SECTORS BIT 
[CLEAR THE FLAG 
TSET SECTOR=1 
CLEAR FLAGST-SECTOR DONE FLAG 
SIF SEQUENCE SECT 

:SET, THEN 
‘BUMP SECTOR ADDRESS 

iF SECTORS 

THEN 

[SET SECTOR=1 
SET FLAGST-SECTOR DONE FLAG 
‘BGN DO "C*=CALL RANDOM NO. GENERATOR 
[CLEAR TOP BITS RANDOM NUM. 
;DOUNTIL RANNUM < 27. 


IF RANDOM NO. 
ZEQUALS ZERO, — 
RANNUM = 


SET SECTOR ADR = RANDOM NO. 


SEG 73 


/GLOBAL AREAS 
583 
584 
585 
586 01 oes 
587 01325 
s2e6 013260 
589 01 $8 
See 01327 
591 8136/8 
S208 013 
2593 013306 
2594 013312 
2595 013314 
2596 013318 
2597 01332 
2598 013330 
43 013332 
600 013340 
2601 013342 
2602 Oi 33¢8 
2603 01335 
2604 013360 
2605 013362 
2606 013370 
2607 013376 
2608 013402 
a4 aE at 
610 01341 
2611 013416 
sie Se 
2614 O13¢39 
2615 013434 
2616 013440 
2617 013444 
2618 013450 
2619 013454 
2620 013460 
2621 013464 
2622 013470 
Sos? 013474 
4 013500 
2625 013504 
2626 013208 
sost 01351 
2629 013514 
sot 013516 
gH sss 
038 013594 
635 013526 
636 013561 
637 013615 
638 
639 
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MOD U.SFT.DCK = DATA CHECK 


ssuszessess 
WN =OAAOWNAOWNWY 
NNN SINS 


ry ares ty =o 
wo —OwWwon 
Soar 


So 
LRS 
rrr 
SWWIN 32] NNN NN 


S2s 
— 
SSS 
Wo 


WWW &P 
WN-nN— 


oooo 
enw 


OWNWA 
N 


oe 


013522 
013524 
000100 
000100 
000005 
003060 
000020 


013526 
002374 
00 


scsssscoscs 
—3 2 OS 


: 


2S 


MOD U.SFT.OCK = DATA CHECK 


BYTC 


DAERCT 
paras t 616. 
#20, SWREG 
EBDCK 
R1,DATASB 


R2,DATAWS 
#HDRPRT , FLAGSP 
EMD 


5 
#HDRPRT, FLAG 
#DATER,ERRNB 


ERR 
#EMBUFF ,FLAGST 


DAER 
eee etter 


CLEAR DATA ERR COUNT 
SET PRINT HEADER FLAG 
sSAVE WORD COUNT 

DOUBLE IT SO BYTE COUNT 
CLEAR BYTE NUMBER 


3NO UAL 
z INCREMENT DATA ERR COUNT 
4 OVER 10 DATA ERRORS 


SIF PRINT ONLY 10 DATA ERROR FLAG 


FF | SET, THEN 

sGET DATA SHOULD BE->PRINT 
GET DATA WAS->PRINT 

3IF PRINT HEADER 


70K, THEN 
[CLEAR PRINT HEADER 
SETUP ERR NBR= DATA ERR 


ZCALL ERROR 

SIF EMPTY BUFFER BIT 
[NOT SET, THEN 
:SETUP MSG FORMAT 
TSETUP TRACK # PRT 


SETUP SECTOR # PRT 
sCALL PRINT BASIC-2 ARG 
O END ‘N° 


BR 

SETUP MSG FORMAT 

3CALL_ PRINT BASIC-0 ARG 
;SETUP MSG FORMATC 


sSET G 

3SET YTE # 

SETUP DATA SHOULD BE 
sSETUP DATA 


DATA WAS 
sCALL PRINT BASIC=3 ARG 
INCREMENT BYTE # 


[CALL CLEAR DATA BUFFER 
"RETURN 


sBYTE COUNT 
sBYTE NUMBER 

sDATA ERR COUNT 
sDATA SHOULD BE 


sDATA WAS 





eASCIZ /2ZNZA TRK#ZD3ZA. SEC#ZD27A./ 


eASCIZ = /ENRZA 


-SBTTL = 
DATACK: CLR 
£44 BIS 
514 MOV 
ASL 
CLR 
BADCK: MOV 
MOVB 
MOVB 
IBDCK: CMPB 
BEQ 
INC 
000012 JEDCK: CMP 
BLO 
002332 IFDCK: BIT 
BNE 
TFDCK: MOVB 
MOVB 
002500 IMDCK: BIT 
BEQ 
002500 BIC 
002520 MOV 
CALL 
002476 INDCK: BIT 
BNE 
MOV 
MOV 
MOV 
CALL 
BR 
ENDCK: MOV 
CALL 
EMDCK: MOV 
MOV 
MOV 
MOV 
CALL 
EBDCK: INC 
DEC 
UADCK: TST 
BGT 
ENDDCK: CALL 
RTS 
BYTCNT: 
BYTNUM: 
DAERCT: 
DATASB: 
DATAWS: 
045 DMSG2: 


¥TE#ZS22A 


D%S6ZABAD/ 


eASCIZ =/2NZS32032S22882S2%88/ 
«EVEN 


ae ee ee Ce ae eee Se 


SEG 74 


tc" Ce ee re eee 
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= MOD U.SFT.CDB = CLEAR DATA BUFFER 





-SBTTL = MOD U.SFT.CDB = CLEAR DATA BUFFER 


CLRDAT: MOV #DATBUF RS :GET BEGIN OF DATA. BUFFER 
MOV #128. ,R4 :SET WORD LENGTH OF TABLE 

BACDB: CLR (R5)¢ [CLEAR WORD IN DATA BUFFER TABLE 
DEC Rs :DECREMENT WORD COUNT 

UACDB: BNE BACDB TALL TABLE WORDS ZEROED 
RETURN RETURN 


SEG 75 


TORasASa CaS eT eo eS ere 


GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 91 
= MOD U.SFT.RCR = REGISTER CHECK & REPORT 


SEQ 76 


2655 .SBTTL = MOD U.SFT.RCR = REGISTER CHECK & REPORT 
2657 3 
2658 + BGNSUB 
3659 : IF FINI _FLAG NOT SET 
2661 : : a TEST TABLE ADDRESS 
2662 : :  DOUNTIL TEST TABLE ENTRY==1 
2663 : : : ADVANCE TEST TABLE ADDRESS 
2664 : DDO 
2665 : ADVANCE TEST TABLE ghDDRESS 
2666 ; GET COMMAND COUNT 
2667 : DCUBLE COMMAND COUNTER 
2668 : ADDRESS OF REG TABLE THIS CMD=CMD COUNTER + TEST TABLE ADR 
2669 : GET ADDRESS OF REG TABLE THIS COMMAND 
2670 ; SET RXCSR COMP ARE WOR 
2671 : SET RXCSR MASK WORD=DON'T CARE Bits FROM neg. TABLE 
2672 ; SET RXESR COMPARE WORD=COMPARE 
2673 ; SET RXESR MASK WORD=DON' T CARE BITS FROM REG” TABLE 
2674 ; SETUP CSR REG. 
2675 ; IF RXCSR NOTSCSRCMP 
2676 : THEN-CALL CK BITS 
2677 ; ENDIF 
2678 ; SETUP ESR REG C 
2679 : IF ESR NOT=ESRCMP 
2680 : THEN-CALL CK BITS 
soa! : : IF 
682 ; ENDIF 
2683 : GET REGISTER ERR TABLE PTR 
2684 ; TERMINATE ERROR TABLE 
2685 : ENDIF 
2686 3 
2687 > ENDSUB 
9 013664 000240 REGSCK: NOP 
2690 01 005037 014670 CLR RGETPT $CLEAR REG ERROR TABLE PTR 
691 013672 005737 002454 IARCR: TST FIN z1F FINI FLAG 
92 013676 001160 BNE EARCR T SET THEN 
693 013700 0047 014276 CALL § SURGCK CALL setup REGS CHECK 
2694 013704 013701 002466 MOV TSTID,R1 :GET TEST TASLE ADD RESS 
sens Sane C5 vanens at faeee PUAN LA TAS MA EST Tau ons 
2697 013714 000775 BR UBRCR TEND ‘ 
2698 013716 015708 002470 EBRCR: MOV TCMDCT,R2 [GET TEST COMMAND CTR 
99 0137 30 ASL R sDOUBLE COMMAND CT 
700 013724 060201 ADD R2,R1 CAL ADRS OF REG TABLE FOR THIS CMD 
2701 o137 011103 MOV (R1),R3 [GET ADRS FROM TEST 
702 137 1 ; ? 14 60 MOV (R3)+,CSRCMP SET RXCSR COMPARE WORDST ABLE CSR CMP 
703 013734 012337 014 MOV (R3)*.CSRMSK § :SET ANE SR MASK WORD=TABLE CSR MSK 
704 013740 01 3 7 014264 MOV (R3)+,ESRCMP SET RXESR COMPARE WORD=TABLE ESR CMP 
705 013744 011337 0142 MOV (R3) ,E SRMSK 3SET RXESR MASK WORD=TABLE ESR MSK 
706 13750 013701 34 CSRCHK: MOV x SGET RXCS 
707 013754 701 17202 BIC #172027,R1 SCLEAR OFF WRITE ONLY BIT=CK DRV SELECT BIT see 
708 013760 701 014 BIC CSRMSK,R1 [MASK OFF BITS DON'T CARE ABOUT 
709 13764 737 014 014270 BIC CSRMSK,CSRSET ZMASK OFF CSRSET BITs DON'T CARE 
710 01 778 53737 014 14 BIS CSRSET.CSRCMP :SET CSR COMMAND VARIABLE BITS 
711 014 23701 CMP CSRCMP.RI SIF RXCS CONTAINS 








a a nn er ee 








| mM 6 
SEQ 77 
|GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 91-1 
MOD U.SFT.RCR = REGISTER CHECK & REPORT 
712 014004 001437 BEQ 4$ ZERRORS, THEN 
713 014 013737 014260 002436 MOV CSRCMP,REGEXP :SAVE EXPECTED 
14 014014 010137 002440 MOV . SSAVE ACTUAL 
715 014020 032737 000002 002332 BIT #FUNCTT,SWREG IF FUNCTION TEST 
2716 014026 403 BEQ MOD 
2717 014030 005237 014274 INC FTERCT Z INCREMENT ERROR COUNT 
3718 014034 20 BR :BR TO REST OF SETUP 
719 014036 010137 014702 1$: MOV R17 ,BADWRD SET CAR WORD 
2720 914042 013737 014260 014700 MOV CSRCMP,CMPWRD  :SET COMPAR RD 
3721 014050 012737 000004 014676 MOV #4 BITOFF tSET # BITS TO OFFSET WORD 
2722 014056 012737 000014 014674 MOV #12. ,BITLIM :SET # BITS TO CHECK 
2723 014064 012737 014776 014704 2$: MOV #CSERTB,RTBADR SET REG TAB ADR ocsR 
2724 014072 004737 014522 CALL  CKBITS FIND BAD BITS & RELATED ERR # 
2725 014076 012701 100000 3$: MOV #ERRFLG,R1 ?SET ERR 
2726 014102 0004 R XCSRCK [BR TO END 
2727 014104 005001 4$: CLR R [CLEAR ERRORS 
2728 014106 050137 002476 XCSRCK: BIS Ri, FLAGST 3SET FLAGST ERR BIT=IF ERRORS 
2729 014112 013701 002434 ESRCHK: MOV RXESR.RI “GET RXES 
2730 014116 042701 176000 BIC #178000 ,R1 3MASK OFF BITS NOT USED IN RXES 
2731 014122 043701 014266 BIC ESRMSK,R1 MASK OFF BITS DON'T CARE ABOUT 
2732 014126 043737 014266 014272 BIC ESRMSK-ESRSET  :MASK OFF ESRSET BITS DON'T CARE 
2733 014134 053737 014272 014264 BIS ESRSET.ESRCMP :SET ESR COMMAND V VARIBLE BITS 
2734 014142 023701 014264 CMP ESRCMP.R1 SIF RXES CONTA 
2735 014146 001431 BEQ 4 TERRORS, THEN 
2736 014150 032737 000002 002332 BIT MFUNCTT,SWREG © 31F FUNCTION TEST 
2737 014156 03 BEQ 1 
3738 014160 005237 014274 INC FTERCT SINCREMENT ERROR COUNT 
739 014164 000417 BR 3$ [BR TO REST OF SETUP 
2740 014166 010137 014702 1$: MOV R1,BADWRD [SET BAD WORD 
2741 014172 013737 014264 014700 MOV ESRCMP,CMPWRD :SET COMPARE 
2742 014200 005037 014676 CLR BITOFF :SET BIT OFFSET 
2743 014204 012737 000014 014674 MOV #12. ,BITLIM :SET # BITS TO CHECK 
2744 014212 012737 014746 014704 2$: MOV #ESERTB,RTIBADR :SET REG ERR TAB ADR=ESR 
745 014220 004737 014522 CALL CK :FIND BAD BITS & RELATED ERR # 
2746 014224 012701 100000 3$: MOV #ERRFLG,RI SSET ERR 
2747 014230 000401 BR XESRCK 7BR TO END 
748 014232 005001 4$: CLR R SCLEAR ERRORS 
749 014234 050137 002476 ¥ESRCK: BIS R1 FLAGST [SET TEST ERROR FLAG, IF ERRORS 
750 014240 013705 014670 EARCR: MOV RGETPT,R [GET REG ERR T 
751 014244 006305 ASL RS [DOUBLE REG ERROR TAB PTR FOR ADDRESSING 
73e 014246 012765 177777 014706 MOV #1, RGERTB(RS) 3 TERMINATE TBL 
014254 000240 NOP 
2754 014256 000207 XREGCK: RTS PC RETURN 
756 014260 000000 CSRCMP: 0 :CSR COMPARE WORD 
757 014262 000000 SRMSK: : 'CSR MASK WORD 
758 014264 000000 ESRCMP: SESR COMPARE WORD 
759 014 66 ESRMSK : SESR MASK WORD 
760 014 20 CSRSET: :CSR SET = SETUP REGS Ck 
761 014 ESRSET: ZESR SET = SETUP REGS CK 
762 014274 000000 FTERCT: [FUNCTION TEST ERROR COUNTER 


76 Py enenenencnthtnnememinsienieitinaeeainstesiaieaaiiatiteee emmmtennmenniemmnmeieienaii 
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GLOBAL AREAS 


40 
3? 014272 
37 040000 002400 


4 
398 001000 002400 
0004 002400 


La*] 
¥ 
co 
So 
—_ 
oa 
i=] 
W 


000200 002500 


424 002400 
002426 002432 
062430 002434 


nN 
“J 
o 
th 
™ 
y 
™m 
esossccsess 
a 


MNOWW 
win 


737 4176277 014270 
001000 


my 
o 
N 
° 
os 
BRRLS 
BREESE 
mu 
PNY 
ao 

wW 

y 

So 

wm 


014272 


3 
> 
S 
5 
sesses 
TNA A A 
PEER EERE 
NWUInw 
88 38 
z= 8 
ss 38 


000400 014272 


014272 


Ot) 
32 
w 
o 
= 
S 
aS 
4 
oO 
Ww 
nm 
w 
N 


Moho Rofonofonoforfononry 


S 


FoNcesess 


06 
10 $93997 000100 014272 
38 40 


-SBTTL = 


SURGCK: 
IGSRC: 


EGSRC: 
IASRC: 
IFSRC: 


EASRC: 
IBSRC: 
ICSRC: 
IDSRC: 


EDSRC: 
IESRC: 


1$: 
EESRC: 
XSRC: 
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MOD U.SFT.SRC = SETUP REGISTER CHECK 











ESRSET 
@RXINIT, CMD 
#SIDE1,CMD 
#DRIVE1, CMD 
CMD,R 

#177761 RS 
#16,R 

EASRC 
#RECTST,FLAGSP 
EASRC 

LCMD, CMD 
LRXCSR,RXCSR 
LRXESR.RXESR 
RS, CSRSET 
#176277, CSRSET 
#SIDE1,R5 
ICSRC 

#Si0E1 ESRSET 


e 


owacnm 
oa = 
-=2 +— Ws 
wi 


EESRC 

#RSCMD RS 
#WDDCMD RS 
EESRC 
#DLDBIT,ESRSET 


emer 


MOD U.SFT.SRC = SETUP REGISTER CHECK 


sCLEAR ESR SET 
Hi CMD WAS RX INITIALIZE 


g N 

sCLEAR SIDE #1 SELECT BIT 

sCLEAR DRIVE #1 SELECT BIT 
OMMAND 


[CLEAR ALL BUT COMMAND 
:1F COMMAND = READ ERROR CODE 
TIF FLAGSP NOT=REC TEST 

: THEN 


SET COMMAND=LAST COMMAND 


:GET LAST RXCSR 
[GET LAST RXESR 
: OMMAND 


SETUP 


SR SET => SIDE1 


E 
3IF DRIVE #1 SELECTED 


HEN 
sSETUP ESRSET => DRIVE1 
st epee DENSITY SELECTED 


3TH 
sSETUP ESR SET = DOUBLE DENSITY 


[CLEAR ALL BU 
IF DELETED DATA MODE 
[COMMAND=READ SECTOR 


3 COMMAND ~URITE DELETED DATA SECTOR 
SSETUP ESR SET =>DELETED DATA BIT 


RETURN 


SEQ 78 


ee ee ee ee eed 


Vivi 
Won 
oo 
o— 


SESE 


SNSERSRLS 


wun 
ss 


eo 
mM 
So 
= 
S 
os 


eS 


=] 


Fah tal ak ah a Ra kk ek ek eek ek Sd ek ed ek Sk Sek 
= 


SESSLER ER SSES. 
sessesceces 
SOME ENOE Ie Sas 

ANNONA NN NUw 


oa 


SESPER ERE 
ERSaand REX 


WN SO OOBNOULSwn 


POPIPIPINIPOPINIAINPIAINVAD 
SOoooeoo OCOOOCOCoooooooooooooooooooooooooooooo 
SV Oh I 
SREP LLLP LLLPERSESE 


000000 00 
MUU 





014702 


014676 
014676 


014676 
014672 
000001 
014672 
014704 


014670 
014706 
014670 
014672 
014674 


014672 
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- MOD U.SFT.BTK = BITS SET/NOT SET CHECK 


~SBTTL - MOD U.SFT.BTK = BITS SET/NOT SET CHECK 





CKBITS: MOV CMPWRD ,R2 :GET COMPARE WORD 
MOV BADWRD.R1 [GET BAD WORD 
BIC R RI SET Ri=B1TS THAT SHOULDN'T BE SET 
COM [COMPLIMENT COMPARE WOR 
BIS BADURD R2 [SET BAD BITS 
COM R *SET R2=BITS THAT SHOULD BE SET 
BIS R2,R1 :SET RI=ALL BITS THAT SHOULD OR SHOULDN'T BE SET 
TST BITOFF :IF BIT OF FSET 
BEQ 2$ ;NOT=0, T 
1$: DEC BITOFF 
CLC ;CLEAR CARRY 
ROR R1 
TST BITOFF TIF BIT OFFSET 
BNE 1$ i£0 UALS 0 
2s: CLR BITCNT LEAR seit COUNTER 
$: BIT #1,R1 tk LSB 
BEQ :NOT=0, THEN 
BITCNT,R2 iGET BIT COUNTER 
ASL : DOUBLE it F FOR ADDRESSING 
ADD RTBADR,R2 SADD REG ADR 
mov (R2),.R3 GET ERE This BIT ERROR FROM TABLE 
BEQ 43 <NOT=0, THEN 
MOV RGETPT RG :SET UP REG ERR TABLE POINTER 
ASL RG 3DOUBLE IT FOR ADDRESSING 
MOV R3,RGERTB(R4)  :SET THIS ERR# IN TABLE OF REG ERRORS 
INC RGETPT s ADVANCE TABLE POINTER TO NEXT LOCATION 
4$: INC BITCNT 3 INCREMENT BIT COUNTER 
CLC LEAR CARRY 
ROR R1 ?SHIFT NEXT BIT FOR TEST 
CMP BITLIM.BITCNT 31F ALL 6 L BITS SPECIFIED 
CLR BITCNT ERESEE BIT COUNT 
XCRBIT: RETURN SRETUR 
RGETPT: ZREG ERROR TABLE POINTER 
BITCNT: ‘BIT COUNTER 
BITLIM: 0 <BIT REGISTER LIMIT 
BITOFF : 9 'BIT REGISTER OFFSET 
CMPWRD: SCOMPARE WORD 
BADWRD: 0 [BAD WORD 
RTBADR: 0 SREGISTER ERROR TABLE ADDRESS 





Cc 7 
SEG 80 
GLOBAL AREAS MACRO M1200 14=DEC=82 16:33 PAGE 97 
- MOD U.SFT.BTK = BITS SET/NOT SET CHECK 





Bes ; REGISTER ERROR #'S = TABLE 
858 014706 00 RGERTB: .WORD 0 : 
859 014710 177777 <WORD 1 : 
860 gare 177777 “WORD <1 : 
2861 014714 177777 “WORD =1 : 
3862 014716 177777 “WORD <1 : 
386 014720 177777 “WORD =1 ; 
864 014722 177777 “WORD =1 ; 
2865 014724 177777 “WORD =1 : 
2866 014726 177777 “WORD =1 : 
2867 014730 177777 <WORD 1 : 
2868 014732 177777 “WORD <1 : 
2869 014734 177777 “WORD <1 : 
2870 014736 177777 “WORD =1 3 
2871 014740 177777 cW -1 : 
2872 014742 177777 “WORD =1 : 
2873 014744 177777 “WORD <1 ; 
2875 
3876 ; TABLE = ESR ERROR #'S 
2878 014746 000004 ESERTB: .WORD CRCERR :BIT #00 = CRC ERR 
2879 014750 000024 “WORD SDRDYE ‘BIT #01 = SIDE 1 RDY 
2880 014752 000062 “WORD NOITOP ‘BIT #02 = INIT 
2881 014754 004050 “WORD ACLOWFINEGTST :61T #03 = AC LOW 
2882 014756 004030 “WORD DENERRINEGTST :BIT #04 = DEN 
2883 014760 “WORD DENDSKINEGTST :BIT #05 = DRV DEN—->NOT ERROR 
2884 014762 000032 “WORD DLDTER ‘BIT #06 = DEL 
2885 014764 000025 ;WORD DVRDYE :BIT #07 = DRV oOY 
14766 000027 “WORD DRVWRG [BIT #08 = UNIT SEL 
2887 014770 000026 “WORD  SIDWRG :BIT #09 = HEAD SEL 
2888 014772 004051 “WORD WCOVFE!NEGTST :BIT #10 = WC OV 
2889 014774 004052 “WORD NXMERRINEGTST :BIT #11 = NXM 
2891 
2892 : TABLE = CSR ERROR #°S 
2894 014776 000033 CSERTB: .WORD CSRERR = UNIT SEL - R/W 
0 “WORD  CSRERR ei Hi - “DONE™ - 
“WORD  CSRERR BIT #06 - INTER ENB == R/W 
; CSRERR ‘BIT - “TR -R 
“WORD  CSRERR ‘BIT #08 = DENSITY - R/W 
; CSRERR [BIT #09 = HEAD SEL - R/W 
“WORD  CSRERR ‘BIT #10 = 
“WORD  CSRERR *BIT #11 = Rx02 -R 
“WORD  CSRERR ‘BIT #12 = -W 
“WORD  CSRERR :BIT #1 -W 
*W CSRERR ‘BIT #14 = -W 
WW CSRERR :BIT #15 ~ ERR BIT -R 





ager eae 





| 


| 


GLOBAL AREAS 
PRESETUP REGISTER TABLES 


2913 015026 
015026 
015030 000000 
015032 


015034 
2914 015036 
015036 


004040 


2918 


Soooc“eooo 
2 
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-SBTTL = 


PRESETUP REGISTER TABLES 


TN=0 
REGTB 1,04040,0,0,-1 
TORT1: .WORD 


REGTB  2,04040,0,0,0 
TORT2: .WORD 


REGTB 3,04060,0,4,177773 
TORTS: -WORD 


WO 
REGTB  4,04040,0,204,1440 
TORT: ee 


REGTB 5,04040,0,200, ~ o 


TORTS: -WORD 


REGTB 6,04040,0 0,1440°"” 
TORT6: .WORD 
WORD 


gRXCS ONLY 
b404 zRXCSR SHOULD BE 

=RXCSR DONT CARE 
3 SRXESR SHOULD BE 
SRXESR DONT CARE 


-1 

gRXCS & RXES/ALL 

6404 zRXCSR SHOULD BE 
sRXCSR DONT CARE 

§ SRXESR SHOULD BE 

0 *RXESR DONT CARE 

RXCS & RXES INITIALIZE ck 

64040 RXCSR SHOULD BE 

0 SRXCSR DONT CARE 

4 3RXESR SHOULD BE 

77773 RXESR DONT CARE 

gRXCS & RXES INITIALIZE ALL ¢ 

6404 RXCSR SHOULD 


BE 
:RXCSR DONT CARE 
3 RX D BE 


504 XESR SHOUL 
¢RXESR DONT ARE 


1440 
“RXCS & RXES READ STATUS" CK 

64040 zRXCSR SHOULD BE 
0 SRXCSR DONT CARE 
200 SRXESR SHOULD BE 
0 RXESR DONT CARE 


-RXCS & RXES NO DISK OPERATION 


64040 R SHOULD BE 
0 SRXCSR DONT CARE 
0 SRXESR SHOULD BE 
1440 SRXESR DONT CARE 


“WORD 
“WORD 

CSONLY = TORTI 

CSESAL = TORT2 

CEINIT = TORTS 

CSESIT = TORTS 

CSESRS = TORTS 

CSESND = TORT6 


sRXCS yl 
3RXCS & RXES A 
ERXCS & se INITIALIZE in 


3 TUS CK 
3RXCS & RXES NO DISK OPERATION 


SEG 81 








geen esse ares eo gaan ¢ag- yr pean 


i 
| GLOBAL AREAS MACRO_M1200 hm 53 vg 33 PAGE 101 
° SET.GEN = GET ERROR CODE-ERR 


SEQ 82 


3929 .SBTTL = MOD U.SET.GEN = GET ERROR CODE-ERR # 

1 o 

2 015106 995002 GTECEN: CLR R2 :CLEAR TEMP REG #2 

3015110 105737 002442 IAGEN: TSTB XERUUT SIF X ERR CODE UUT 
2934 015114 o0142¢ EQ XGTECN :NOT= 
2935 015116 122737 000260 002442 IBGEN: CMPB  #260,XERUUT TIF ERR CO 
936 015124 101003 BHI ZEXCEEDS “260 When 
937 015126 012702 000017 MILLERC,R2 3SET_ERR ODE # 
2938 0151 BR EBGEN R TO END at td 
2939 015134 052737 100000 002476 LBGEN: BIS #ERRFLG,FLAGST SET FLAGS-ERR FLAG 
2940 015142 004737 017106 CALL  GTECOF :CALL GET ERROR CODE OFFSET 
2941 015146 016102 015164 MOV ECERNT(R1),R2  :GET ERROR CODE ERR # FROM TABLE 
g4e 015152 010237 002462 EBGEN: MOV R2,RECERN TREAD ERR COD 4 
2943 015156 010237 020164 MOV R2.ECERNB SPASS ERR CODE ERR # TO “ERRCHK'’ MOD 
o9n 015162 000207 XGTECN: RETURN RETURN 
2946 
2947 : ERROR CODE ERROR # TABLE 
2950 015164 000000 ECERNT: .WORD : 00->NO ERROR - 
2951 015166 000006 ;WORD SEKERR + 10=>NO HOME DRVO “SEEK 
2952 015170 000006 “WORD SEKERR + 20->NO HOME DRV1 “SEEK 
2953 015172 000017 <WORD ILLERC : 30-> <- ° 
2954 015174 004041 “WORD TRKAER!NEGTST : 40=>ACC TK > 76 “TRACK ERR 
2955 015176 “WORD  SEKERR : 50->HOME BEFORE TRK “SEEK 
2956 015200 00001 “WORD ILLERC + 60=> - « 
2957 015202 004003 “WORD RDERRINEGTST : 70->NO_ SEC=52 TRIES “READ 
2958 015204 000017 -WORD ILLERC :100= - 
2959 015206 000003 SWORD DE 2110-9NO STEP CLOCK “READ 
2960 015210 000003 “WORD  RDERR £120=>NO PREAMBLE “READ 
2961 015212 000003 “WORD RDE 3 130->PREAMBLE-NO 1.D. “READ 
2962 015214 000017 “WORD ILLERC ; - 
2963 015216 “WORD SEKERR 180-36 GD TRK NOT=TRK “SEEK 
2964 015220 3 eWORD RDERR :160=->TOO MY TRIES IDAM “READ 
2965 015222 000003 eWORD RDERR 3170->DATA “READ 
2966 015224 000004 WORD CRCERR 3 ’ ->CRC -CRC 
2967 015226 000017 [WORD ILLERC 3210-> == « 
2968 015230 6 “WORD HDSFOG 3220=>SELF DIAG “SELF DIAG 
2969 015232 004051 eWORD WCOVFE!NEGTST 3230->WRD COUNT OVF -WRD CTOV 
2970 015234 004030 ;WORD DENERRINEGTST + S20->DENSITY ERR “DEN ERR 
344 015236 004036 ~WORD SDKYWO-NEGTST +250=>WRG KEYWD-S.D. “WRG KEY 
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GLOBAL AREAS — MACRO M1200 14=DEC~82 16:33 PAGE 103 
= MOD U.PRT.STA = PRINT UNIT STATUS 

3975 .SBTTL = MOD U.PRT.STA = PRINT UNIT STATUS 

77 F 

78 015240 012701 01544 PRTSTA: MOV #IDENTI,R1 ;SETUP FORMAT MSG 

79 015244 013702 00251 MOV UNTPRT ,R2 TUP UNIT PRT 

BO 015250 013703 00243 MOV RXCSR,R3 :SETUP RXCSR 

1 015254 013704 002434 MOV RXESR_RG SSETUP RXESR 

2982 015260 013705 002400 MOV CMD ,R5 : COMMAND 
2983 015264 004737 002664 CALL PRTB4S 3CALL PRINT BASIC 4-PARM. 
2984 015270 005737 002400 IBSTA: TST CMD IF C 
2985 015274 001417 BEQ IASTA NOT = 0, T 
2986 013076 032737 040000 002400 ICSTA: BIT #B81T14,CMD iF PROG INIT. 
2987 015 001403 BEQ STA : THEN 
2988 015306 012701 007452 MOV #CMDMB,R1 i SETUP PROG, INIT MSG 
2989 015312 000406 BR ECSTA, 3BR T 0 END 
2990 015314 013705 002400 LCSTA: MOV CORMAN’ 
2991 015320 042705 177761 BIC ree RS [CLR ALL BUT CMD 
2992 015324 016501 007164 MOV CMDMSG(R5),R1  :GET CMD MSG 
2993 015330 004737 002550 ECSTA: CALL PRTBOS [CALL PRINT BASIC 0 = PAR 
2994 015334 032737 000200 002476 IASTA: BIT WRECFLG,FLAGST 31F ERR CODE F 
2995 015342 001435 BEQ XPTSTA HEN 
2996 015344 004737 015744 CALL  PRTECD <CALL PRINT ERROR CODE 
2997 015350 004737 017124 CALL _— CLRRGS ‘CALL CLEAR REGISTER 
2998 015354 912701 015531 MOV #XER2,R1 i SETUP FORMAT MSG 
2999 015360 113702 002443 MOVB WC, F2 SSETUP WORD COUNT 
3000 015364 113703 002444 MOVB = CTKO,R3 :SETUP CTKO 
3001 013370 1137 002445 MOVB = CTK1_R4 SSETUP CTK1 

2 015374 004737 002 CALL  PRTX$S CALL PRINTSEXT | : PARAMETERS 
3003 015400 012701 015627 MOV #XER3,R1 :SETUP FOR 
3004 015404 113702 002446 MOVB ~—«CTTRK R SETUP The 
3005 015410 113703 002447 MOVB _—srTSEC..R :SETUP TSEC 
3006 015414 113704 002450 MOVB = SFTSTS,R4 SSETUP SFTSTS 
3007 015420 113705 002451 MOVB BTRK R5 :SETUP BTRK 
3008 015424 004737 003030 CALL TX4S [CALL PRINT-EXT 4 PAR 
3009 015430 042737 000200 002476 BIC WRECFLG,FLAGST [CLEAR ERROR CODE FLAG 
3010 015436 005037 015444 XPTSTA: CLR ERRREG CLEAR ERROR REGISTER 
3011 015442 000207 RTS PC RETURN 
3013 015444 000000 ERRREG: 0 : 
3015 015446 045 116 045 DENT1: .ASCIZ /%NZA UNIT#ZOIZA RXCSR=Z0%A RXESR=ZO%A CMD=Z0ZA -> 
3016 015531 045 116 045 XER2:  .ASCIZ /%NZA WORD CNT=%03%NZA CUR TRK DVO=%D2%A. CUR TRK ‘ovi=xp 2%A. 
3017 015627 045 116 045 XER3: ASCIZ /4N%A TARGE? TRK =%D2%A. TARGET ore =%D2%A. SOFT STAT=%03%A BaD TRK=%D2%A.% 
301 9 Pj (2 Gp Ge Ge Se me ap Ge a Se oe (So Sp => we ap as ee em oo i = tom Ge Se Gt OE eS Se Se Ge te coe Gy Ee ee a ee eo em ee a Se Ge ae Ee eS es Se a te th 2 eS 
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|= MOD U.PRT.EC = PRINT UNIT ERROR CODE 


| 2 .SBTTL = MOD U.PRT.EC = PRINT UNIT ERROR CODE 
| eo 
25 015744 012701 016014 PRTECD: MOV #XER1,R1 :SETUP FORMAT MSG 
26 015750 113702 002442 MOVB = XERUUT, R2 [GET ERROR CODE 
| 3027 015754 042708 177400 BIC #177400,R2 [CEAR TOP R 
3028 015760 00473 002734 CALL  PRTX1S :CALL PRINT EXTENDED-1 ARG 
29 015764 105737 002442 TST8 XERUUT TIF ERROR 
3030 015770 001410 BEQ ENDXER :NOT=0, THEN 
31 015772 004737 17106 CALL GTECOF sCALL GET ERROR CODE OFFSET 
| 3032 015776 016101 016042 MOV ECTAB=2(R1),R1 :SET ADR OF ERROR MSG FOR PRINT 
3033 016002 004737 002714 CALL  PRTXOS [CALL PRINT EXTENDED-NO ARG 
3034 016006 105037 002442 CLRB  XERUUT [CLEAR ERROR CODE 
3035 016012 000207 ENDXER: RTS PC [RETURN 
3037 016014 045 116 045 XER1:  .ASCIZ /%NZA ERR CODE=%03%A ->/ 
3038 SEVEN 
3040 
3041 016044 016136 ECTAB: .WORD €C1 
3042 016046 016175 “WORD EC2 
3043 016050 016116 “WORD ECO 
3044 016052 016234 “WORD C4 
3045 016054 016274 “WORD ECS 
3046 016056 016116 “WORD ECO 
3047 016060 016337 “WORD EC? 
3048 016062 016116 “WORD ECO 
9 016064 01640 eWORD €EC11 
3050 016066 016451 “WORD EC12 
3051 016070 016477 “WORD EC13 
3052 016072 016116 “wORD ECO 
3053 016074 01656 “WORD EC15 
3054 016076 016640 “WORD EC 16 
3055 016100 016670 “WORD EC17 
3056 016102 016716 “WORD EC 20 
3057 016104 016116 SWORD ECO 
3058 016106 01675 “WORD E22 
3059 016110 017013 “WORD EC23 
3060 016112 017033 SWORD EC24 
3061 016114 017052 “WORD EC25 
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OBAL AREAS MACRO M 

UNIT ERROR CODE ME 

5 
016116 045 
git 045 
24 1617 045 
71 016234 045 
Lk: 016274 045 
ie 016337 045 
76 016407 045 
77 016451 045 
78 016477 045 
3079 016550 045 
3080 016967 049 
1016640 045 
015670 045 
3 016716 045 
Sone 016753 045 
017013 045 
3087 017933 045 
3088 017052 045 
3089 
1 
303 
3094 017106 013701 
$032 017112 006201 
017114 006201 
$058 017116 042701 
8 017122 000207 
3099 
3100 
3101 
3102 
$13? 

104 017124 005001 
3105 017126 005002 
3106 017130 005003 
3107 017132 5 
3108 017134 500 
$150 017136 000207 
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.SBTTL = UNIT ERROR CODE MESSAGES 

EcO: .ASCIZ /%A ILL ERR CODE/ 

EC1:  .ASCIz /ZANO HOME ON INITIALIZE DRV 0./ 

EC2:  .ASCIZ /%A ON INITIALIZE DRV 1./ 

-EC3:  .ASCIZ /ZAILL ERR CDE./ 

EC4:  .ASCIZ /ZATRIED TO ACCESS A TRACK > 76./ 

ECS:  .ASCIZ /ZAHOME FOUND BEFORE DESIRED TRACK./ 
-EC6:  .ASCIZ /EAILL ERR CDE./ 

EC7: _.ASCIZ. /%A52 HEADERS PASSED & SECTOR NOT FOUND./ 
sEC10: .ASCIZ /ZAILL ERR CDE./ 

EC11:  .ASCIZ /ZANO STEPCLK SEEN IN 40 MICROSEC./ 

Cig: SASCIZ /ZAPREAMBLE NOT FOUND./ 

EC13: .ASCIZ /ZAPREAMBLE FOUND BUT NO ID MARK IN TIME./ 
EC14:  .ASCIZ /ZAILL ERR CDE./ 

EC15: .ASCIZ /ZAGOOD HEADER TRACK ADR NOT=SELECTED TRK/ 
EC IG: “ASCIZ /%AIDAM=>TOO MANY TRIES./ 

EC17: .ASCIZ /ZANO DATA AM IN TIME./ 

EC20:  .ASCIZ /ZACRC ERR ON READING SECTOR./ 

-EC21: .ASCIZ /ZAILL ERR CDE./ 

EC22:  <ASCIZ /ZAR-W ELECT. FAILED MAINT. TST./ 

EC23:  .ASCIZ /ZAWORD CNT OVF./ 

EC24:  .ASCIZ /ZADENSITY ERR./ 

EC25:  .ASCIZ /ZASET DENSITY WRG KEY WORD./ 

. E 


-EVEN 
-SBTTL - MOD U.SFT.GEO = GET ERROR CODE OFFSET 


XERUUT,R1 SAVE EXTENDED ERROR CODE IN TEMP #1 
R1 sFORMAT 


GTECOF: yr 
ASR R1 [FORMAT E.C. FOR ADR 
BIC #177700,R1 [CLR TOP BYTE 
RETURN RETURN 


-SBTTL = MOD U.SFT.CRS = CLEAR REGISTERS 


CLRRGS: CLR R1 
CLR 


R2 
CLR RS 
CLR R4 
LR 
RETURN ;RETURN 
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$ 
MOD U.SFT.DSC = DEVICE STATE CHECK 


» SBTTL - MOD U.SFT.DSC = DEVICE STATE CHECK 


iF oe ERROR BIT SET 
"i hte DONE BIT SET 


IF RXES ACLOW BIT SET 
: THEN-SETUP ERROR 
SETUP 


: : = PWR, CABLED BACK, RX01 STRAP, PDP-8"" 
: : SETUP DROP UNIT 
: ENDIF 
: ENDIF 
ENDIF 
;_ENDSUB 
002350 DVSTCK: MOV RXCS,R1 7SET R1=RXCS ADDRESS 
100 IADSC: BIT #ERRBIT, (R1) s1F RXCS REG=ERR BIT 
BEQ EAD sSET, THEN 
000040 18DSC: BIT #DNBIT, (R1)+ s1F RXCS REG=DONE BIT 
BEQ EAD 3sSET, T 
000010 ICDSC: aM eat zif me _—— LOW BIT 
600038 002520 MOV #ACLOWF ,ERRNBR sSET ERR NBR=AC LOW FATAL ERROR 
060 CALL ERROR RR 
017222 MOV #STATER,R1 SET MSG->"NO PWR, CABLE BACK...ETC.°° 
002550 CALL PRTBOS CALL PRINT BASIC-NO ARG 
DODU UNIT DROP UNIT 
DOCLN 700 CLEAN 
EADSC: RETURN RETURN 





116 045 STATER: rey /ENZA ->NO PWR, CABLED BACKWARDS, “STRAPPED RX01, PDP-8/ 
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= MOD U.SFT.DSC = DEVICE STATE CHECK 











151 
136 -SBTTL = MOD U.SFT.DRC = DEVICE READY CHECK 
154 3; BGNSUB 
155 3 CALL CLEAR DEVICE 
136 3 IF RXES DRV RDY NOT SET CA] 
15 : : THEN-SET SYS ERR-DRV RDY ERR 
158 8 : SETUP ERR # DRV RDY ERR 
159 3 : CALL ERR 
are? 3 ENDIF 
19) : ENDSUB 
3188 
164 017310 000240 DVRYCK: NOP 3 
165 017312 004737 010472 CALL CLRDEV 3CALL CLEAR DEVICE 
166 017316 032777 000200 163026 IADRC: BIT #DRVRDOY,aRXDB :1F RXDB-DRIVE RDY 
167 017324 001010 BNE EADR T SET, THEN 
168 017326 052737 000040 002456 BIS #B1TS,SYSERR 2SET SYS ERR=DRV RDY ERR 
169 017334 012737 000025 002520 MOV #DVRDVE ,ERRNBR SET ERR NBR=DRV RDY ERROR 
3170 017342 004737 003060 CALL ERROR CALL ERROR 
$133 017346 000207 EADRC: RETURN sBR TO EXIT 
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‘> MOD U.SFT.DDC = DEVICE DENSITY CK 


175 .SBTTL = MOD U.SFT.DDC = DEVICE DENSITY Ck 
17 : BGNSUB 
178 3 CALL DEVICE READY Ck 
| 179 3 IF SYS ERR=DEVICE READY ERR NOT SET 
180 : THEN-SET TRACK=0, SECTOR=10 
| 3181 ; CALL READ SECTOR 
182 : IF FINI NOT SET CA] 
3183 : : THEN 
3184 : : IF RXES DRIVE DENSITY=DOUBLE DEN 
185 : : THEN-SET DENSITY STATUS=DOUBLE DENSITY 
| 3186 : : ELSE=SET DENSITY STATUS=SINGLE DENSITY 
| 3187 : : ENDIF 
3188 : : SET TRACK=76, SECTOR=10 
3189 : : (CALL READ SECT 
3190 : : JF RXES DRIVE DENSITY NOT=DENSITY STATUS [CJ 
3192 : : : : SETUP ERROR # & ERROR MSG=>'DISKETTE-MIXED DENSITY" 
3193 : : : : (CALL ERROR 
3194 : : : : DO 
3195 : : : ENDI 
3196 ; : ENDI 
3197 : ENDIF 
3199 ;_ENDSUB 
3200 017350 004737 017310 DENCHK: CALL DVR ZCALL DEVICE READY C 
3201 017354 032737 000040 002456 IDDDC: BIT WOITS SYSERR TIF SYS ERR=DEVICE RDY ERR 
02 017362 001054 BNE EADDC [NOT SET, THEN 
3203 017364 005037 002374 CLR TRACK [SET TRACK=0 
204 017370 012737 000012 002376 MOV #10., SECTOR [SET SECTOR=10 
205 017376 004737 011062 CALL READ :CALL READ SECTOR 
206 017402 005737 002454 IADDC: TST FIN 31 FINI 
3207 017406 001042 BNE EADDC ‘NOT SET 
3208 017410 032777 000040 162734 IBDDC: BIT #DRVDEN,A@RXDB =: IF DRIVE DEAN DOUBLE DEN BIT 
3209 017416 001404 BEQ :SET, 
3210 017420 012737 000400 002414 MOV MDENBIT,DENSTA :SET “DENSITY STATUS=DOUBLE DEN 
3211 017426 000402 BR EBDDC :BR TO END ‘B° 
3212 017430 005037 002414 LEDDC: CLR DENSTA SSET DENSITY STATUS=SINGLE DEN 
3213 017434 012737 000114 002374 EBDDC: MOV #76. , TRACK [SET TRACK=76. 
3214 017442 004737 011062 CALL READ 3CALL READ SECTOR 
3215 017446 017701 162700 MOV @RXDB,R1 [GET RXES 
3216 017452 042701 177737 BIC #*CDRVDEN,R1 CLEAR ALL BUT DRIVE pENsiTY 
3217 017456 006301 ASL R1 : ADV DRIVE DENSITY 
3218 017460 006301 ASL R1 ; 0 EQUAL T 
3219 017462 006301 ASL R1 : DENSITY STATUS 
3220 017464 020137 002414 ICDDC: CMP R1,DENSTA TIF RXES DRIVE DENSITY & DENSITY STATUS 
3321 017470 001411 BEQ A :NOT=, TH 
3222 017472 012737 000020 002520 MOV #DENDSK,ERRNBR :SET ERR NBR=DISK DENSITY ERROR 
3223 017500 004737 003060 CALL ERROR SCALL ERROR=MOD 
3206 017504 DODU  —iUNIT ‘DROP UNIT 
225 017512 DOCLN :DO CLEAN 
3206 017514 000207 EADDC: RETURN S RETURN 


a a mn es a e+ 


ma 8s | oe ee ee ee 


| ; Pine 


[GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 114 
= MOD U.SFT.TKE = TRACK ERROR CHECK 


3530 -SBTTL = MOD U.SFT.TKE = TRACK ERROR CHECK 
Seg 3; BGNSUB 
$3 3 IF LAST COMMAND=READ OR WRITE SECTOR A] 
34 : : oan FLAG=READ ERROR re gt SET BJ 
tH 3 THEN ey DRIVE if SELECTED CC] 
$539 3 THEN= 1F CURRENT TRK DRV #0 NOT=TRACK [DJ 
238 5 if FLAGS=NEG TST a SET (CEJ 
239 3 : : THEN-SETUP ERROR # 
3240 3 : $ SET PRINT —— FLAGS 
3241 3 : 3 CALL ERROR REPORT 
324 3 : ENDIF 
324 § 3 ENDIF 
see : : ELSE-IF — TRK DRV #1 NOT=TRACK [FJ 
3246 3 : if ee TST NOT SET [G6] 
3247 3 : THEN=SETUP ERRO 
3248 § 2 2 SET PRINT TRACKS=-PRINT FLAGS 
3249 8 : : : CALL ERROR REPORT 
3250 : : : ENDIF 
3251 ; : ENDIF 
3252 : : : ENDIF 
3527 : : : ELSE-IF ON COMMAND CHI 
3255 : : : : IF FLAGS=NEG TEST wor SET CII 
$529 : : : : THEN=SE TUP 
25 : : : : : SET PRINT TRACKS-PRINT FLAGS 
3258 3 : : : : CALL ERR REPORT 
3259 : : : : ENDI 
3260 : : : ENDIF 
3261 3 : ENDIF 
3262 3 ENDIF 
3263 3 NOP 
32 : ENDSUB 
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= MOD U.SFT.TKE = TRACK ERROR CHECK 


SEQ 90 


3268 017516 000240 TKERCK: NOP ; 

3269 017520 022737 000017 002424 IATKE: CMP #17,LCMD SIF LAST COMMAND 

3270 017526 001471 BEQ TKE : WAS 

3 71 017530 032737 000004 002400 BIT 44,CMD : _ READ OR WRITE 

72 017536 001465 BEQ EATKE + THEN 

3273 017540 032737 000200 002476 IBTKE: BIT MRECFLG,FLAGST 31F FLAGS=READ ERROR CODE BIT 

3274 017546 001442 BEQ IHTKE ; H 

3275 017550 005737 002406 ICTKE: TST DRIVE TIF DRIVES 

3276 017554 001016 BNE IF TKE ‘SELECTED, THEN 

3277 017556 123737 002444 002374 IDTKE: C CTKO, TRACK IF CURRENT TRACK DRIVE 0 & TRACK 

3278 017564 001452 BEQ ATK HEN 
017566 032737 004000 002476 IETKE: BIT WNEGTST,FLAGST ZIF FLAGS=NEG TEST BIT 

3280 017574 001046 BNE [NOT SET, 

3281 017576 012737 000041 002520 MOV @TRKAER,ERRNBR :SET ERR NBR= TRACK ADDRESS ERROR 
017604 004737 003060 CALL ERROR *CALL ERR 

3283 017610 000440 BR EATKE ‘BR TO END 'A° 

3284 017612 123737 002445 002374 IFTKE: CMPB  CTK1,TRACK TIF CURRENT TRACK DRIVE 1 & TRACK 

3285 017620 001434 BEQ ATK :NOT=, THEN 
017 032737 004000 002476 IGTKE: BIT #NEGTST,FLAGST IF FLAGS=NE TEST BIT 

3287 017630 001030 BNE EA NO 

3288 017632 012737 000041 002520 MOV #TRKAER,ERRNBR ;SET a * NBR=TRACK ADDRESS ERROR 

3289 017640 052737 000001 002500 BIS #TKPRT,FLAGSP SET PRINT TRACKS FLAG-PROGRAM FLAGS 
017 004737 003060 CALL RROR :CALL E 

3291 017652 000417 BR EATKE ‘BR TO END ‘A 

3292 017654 005737 002432 IHTKE: TST RXCSR SIF ERROR ON COMMAND (READ OR WRITE) 

3293 0176 100014 BPL EATKE SET, 

32 017662 032737 004000 002476 IITKE: BIT WNEGTST,FLAGST :IF FLAGS=NEG TEST BIT 

95 017670 001010 BNE EA SET. THEN 

3296 017672 012737 000041 002520 MOV #TRKAER,ERRNBR T ERR NBR=TRACK ADDRESS ERROR 

3297 917700 052737 000001 002500 BIS ATKPRT,FLAGSP :SET PRINT TRACKS FLAG 

3298 017706 004737 003060 CALL ERROR 3CALL ERROR 

32399 017712 000240 EATKE: NOP 

3300 017714 042737 000001 002500 BIC #TKPRT,FLAGSP tCFAR PRINT TRACKS FLAG 

$303 017722 000207 XTKECK: RETURN sRETURN 
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= MOD U.SFT.ECK = ERROR CHEC 


aoe » SBTTL - MOD U.SFT.ECK = ERROR CHECK 

3307 3; BGNSUB 
3308 3 IF REG CHECK SET CA] 
3309 «- : : THEN-CALL REGISTER CHECK 

3310 é NDIF 
3311 ; IF READ ERROR CODE SET C8] 
3312 : : THEN-IF FLAGSP=READ ERROR CODE TEST NOT SET [NJ 
3315 : : THEN er READ ERROR CODE CHECK 

3314 5 : Att ERROR NEG TEST CK 

3315 3 ENDIF 
3316 3 ENDIF 
3317 3 IF ERRCR FLAG SET CCI 
3318 3 : THEN 
3319 ; if ERR NUMBER NOT SET= ala ERROR {DJ 
3320 ; THEN=CLEAR R a en 

3321 3 DOWHILE REG ERR # TABLE ENTRY NOT=-1 CEJ 
3322 3 : SET TEMP R2=REG ERR # a ENTRY 

3323 3 IF TEMP REG #2 > C1] 
3324 : THEN-SET REG ERR eETEMP REG 

3325 3 ENDIF 

3326 3 ENDDO 
3327 3 IF REG ERR # > ERR CODE ERR a CM] 
3328 3 : THEN-SET ERR NUMBER=REG ERR 

3329 3 ELSE-SET ERR NUMBER=ERR CODE "ERR 4 

3330 3 : ENDIF 
3331 ; ENDIF 

3332 ; CLEAR REG ERR # 
3333 5 CLEAR ERR CODE ERR # 

3334 3 CALL ERROR 

3335 ; E 

336 ; ENDSUB 
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002476 


002476 
002500 
002432 


002476 
002520 


020164 
002520 
002520 
002332 


002500 


IBECK: 
INECK: 
IOECK: 


ICECK: 
IDECK: 


WEECK: 


EPECK: 


MERRCK: 


RETURN 






#REGCK ,FLAGST 
IBECK 

EGSCK 
#RECFLG,FLAGST 
#RECTST, FLAGSP 
ICECK 
#ERRBIT,RXCSR 
ICECK 

GTECEN 
ECERNB,R2 
ERNTCK 
R2,ECERNB 
WERRFLG, FLAGST 
XERRCK 
#39. ,ERRNBR 
EDECK 

RGERNB 
RGERTBCR1) 
RGERTBCR1) .R2 
R2,RGERNB 
EIECK 
R2,RGERNB 
(Ri)+ 

WEECK 
RGERNB.ECERNB 
RGERNB,ERRNBR 
ECERNB,ERRNBR 
#81113, SWREG 
EPE 


ER 
#RECFLG,FLAGSP 


SIF FLAGS=REG CK BIT a 


HEN ’ 
CALL REGISTER CHECK ‘ 
414 Mg “peat ERROR CODE BIT 


HE 

‘FF TEL AGSP=READ ERROR CODE TEST 
[NOT SET, THEN 

iE R AXCSR ERR BIT 

CALL GET NREAD ERROR CODE ERR 
SPASS ERROR CODE ERR # TO. ENEG. TEST Ck** MOD 
[CALL ERROR NEG TEST CHECK 

SSAVE REC ERR 

31F FLAGS<ERROR FLAG 

iT F ERR NUMBER NOT=SYS FTL ERR 
[CLEAR REGISTER ERROR # 


50 EAR REGISTER ERROR TABLE PTR 
Own! Le A ERR TABLE ENTRY 


ae 
m 
— 
~~ 


SEQ 92 


HEN 
‘PASS “héG ERR # vert heen TO “NEG TEST Ck*’ MOD VIA “‘R2°° 


CALL ERROR NEG TEST 
IF o MP R2 > REG ERR NBR 


3TH 
7SET REG ERR NUMBER=R2 
Z INCREMENT INDEX | 


sBR TO DOWH 
iF REG ERR# > ERR CODE ERR# 


HEN 
SET ERR NUMBER=REG ERR # 
3BR_TO END ° 
SET ERR NUMBER=ERR CODE ERR# 


iF SW_REG BIT #13 
THEN 


CLEAR REG ERR # 
:Che ’ ERR CODE ERR # 
CLEAR RD ERR CODE FLG 
sRETURN 


ECERNB: 
RGERNB: 


0 
0 


sERR CODE ERR # 
zREG ERR # 


¢ 8 











SEG 93 
GLOBAL AREAS RO M1200 14-D sre ee 16:33 PAGE 122 
- MOD U. SFT.ENC = ° “ERROR NEG TEST 











0 -SBTTL = MOD U.SFT.ENC = ERROR NEG TEST CHECK 
91 3; BGNSUB 
4 3 IF TEMP REG seme TEST FLAG SET CA] 
9 5 : THEN-CLEAR ae TEST Aa J _— # 
aoe : : IF FLAGS=NEG TEST SET fe} 
95 3 $ : Net NEG fest’ thr #=SET NEG TEST ERR Cc 
3 : : : : THEN-CLEAR T RROR 
39 3 : : : ELSE REG # =biske ERROR (d] 
aoe : : : : THEN=CLEAR-NOT ERROR 
res $ s ENDIF 
01 3 $ ENDIF 
7e' } ENDIF 
0 3; ENDSUB 
3405 
06 020170 55 ERNTCK: NOP : 
07 020172 032 06 004000 IAENC: BIT #NEGTST,R2 siF eg REG=NEG TEST FLAG 
08 020176 00141 BEQ XENTCK 3SET, THEN 
3409 020200 042702 004000 BIC #NEGTST,R2 3CL LEAR NEG TEST FLAG 
e219 020204 te 004000 002476 IBENC: BIT WNEGTST,FLAGST ;1F FLAGS=NEG test BIT 
11 020212 1411 BEQ XENTCK sSET, THEN 
ani¢ 020214 023702 002464 ICENC: CMP NGTSER,R2 sIF NEG TEST ERR # & SET NEG TEST ERR 
3413 020220 00100 BNE IDENC SAR HEN 
14 020222 005002 CLR R2 30K, CLEAR THE ERROR !! 
15 os0 4 BR XENTCK TO IF *I* 
16 020226 2702 000020 IDENC: CMP #DENDSK ,R2 TIF DISK DEN 
3417 0202 001001 BNE XENTCK sERROR, THEN 
3418 020234 005002 CLR R2 :CLEAR-NOT ERROR<----- 
se36 020236 000207 XENTCK: RETURN RETURN 





a 


por an + ee - 


| .8 
| SEO 94 
[GLOBAL AREAS MACRO M1200 14=DEC=82 16:33 PAGE 124 


MOD U.SFT.DBG = TEST STATUS 


Oe 
oO 
rs 
5 


Htsatttates $3 


SSSNEAEUNS 
So 


SEEEE 
FAVS 
x 
a 
® 


3466 020532 
3467 020540 
3468 


002476 


002412 
002476 


002412 
002476 
002370 


002476 
002370 


-SBTTL = MOD U.SFT.DBG = TEST STATUS 





TSTDBG: MOV FLAGST,R 
MOV FLAGS, R 
MOV ERRMSG,R& 
MOV ATSDGMS,R1 
CALL  PRTB3S 
MOV #TSDGM1,RI1 
MOV RGER he 
MOV ECERNB.R 
CALL  PRTB2S 
RETURN :RETURN 





TSDGMS: .ASCIZ /ZNZA->FLAGST=%0%A FLAGSP=%0%A ERRMSG ADR=%02N/ 
TSDGM1: yy /ZA REG ERR #Z0ZA ERR CODE ERR #Z0ZN/ 








«SBTTL - MOD U.SFT.CDOC = COMPLIMENT DENSITY CONTROL 











CDENC: NOP 
IACDC: TST DENSTY SIF CONTROL DENSITY 
BEQ LACDC EQUALS DOUB THEN 
BIC #DDCFLG,FLAGST CLEAR DOUBLE DENSITY CONTROL FLAG 
CLR DENSTY sSET cor DENSITY=SINGLE 
BR XCDENC 7BR TO ' 
LACDC: MOV #DENBIT ,DENSTY SET CONTROL DENSTY=DOUBLE 
IS WODCFLG,FLAGST ;SET DOUBLE DENSITY CONTROL FLAG 
XCDENC: RETURN RETURN 


-SBTTL - MOD U.SFT.SDC = SETUP DENSITY CONTROL 


SDENC: MOV DENSTA,DENSTY 
IASDC: TST DENSTA 
BEQ LASDC :D 
BIS #DDCFLG, ru hast 3SET 
MOV #128 NT T 





SET DENSTY CONTROL=DENSITY STATUS 
F DENSITY STA ATUS SET TO 
LE DENSITY, THEN 
DOUBLE DeNnsiTy CONTROL FLAG 

D COUNT= 


BR XSDC 2BR_ TO EXIT 
LASDC: BIC #DDCFLG,FLAGST ;CLEAR DOUBLE DENSITY CONTROL FLAG 
MO ee T sSET WORD COUNT=64 


V 
XSDC: RETURN sRETUR 





t---- + On ee ee a 


SEQ 95 
GLOBAL AREAS MACRO M1200 14=DEC-82 16:33 PAGE 126 
= MOD U.PRT.UNT = PRINT UNIT IDENT 








| 
| 
| 4 «SBTTL = MOD U.PRT.UNT = PRINT UNIT IDENT 
7 :BGNSUB 
| 7%, : GET UNIT # 
75 ; GET UNIT MSG 
7% : CALL PRINT=1 ARG 
77 :ENDSUB 
se e ey ae (2 ER Sk DR GR en me ee GED ee GS Ep ee SD Om ee ee ee me ie me ee ee oe 
80 920542 013702 002512 MOV UNTPRT,R2 2GET UNIT 
81 020546 012701 020560 MOV #PTUTMS,R1 :GET UNIT MSG 
82 020552 004737 002570 CALL PRTBIS ZCALL PRINT BASIC=1 ARG 
85 020556 000207 RETURN RETURN 
386 020560 045 116 045 PTUTMS: -ASCIZ /%N%A UNIT #%D2/ 
3486 -EVEN 
aH e 8 Oe ey Oe nS SE SS STS SST OSS SSM SPGoOS HS SEEDED SEBO SOE aE RES DenmMHoDSnDEsZeaawroaenaanaae 
3489 .SBTTL = MOD U.PRT.DID = PRINT DRIVE IDENT 
res: 3 SUB 
349 : GET DRIVE | a 
349 : GET SIDE # 
3494 : IF DOUBLE SIDED DEVICE 
3495 3 : THEN-SETUP PRINT IDENT DOUBLE SIDED DEVICE 
3496 : : CALL PRINT AR. 
97 : : ELSE-SETUP PRINT IDENT SINGLE SIDED DEVICE 
98 : : CALL PRINT BASIC-1 P 
3499 3 ENDIF 
3500 : ENDSUB 
3208 020600 013702 002514 PRIDID: MOV DRVPRT :SETUP R2=DRV 
504 020604 012701 020657 MOV OIDSSMg , SETUP PRINT. IDENT SINGLE SIDED DEVICE 
505 020610 004737 002570 CALL PRTBIS [CALL PRINT BASIC=1 PAR. 
3506 020614 032737 010000 002332 IADID: BIT #SIDFLG, SWREG :IF DOUBLE SIDED DEVICE 
507 020622 001406 BEQ XPTDID ZFLAG SET, THEN 
3508 020624 013702 002515 MOV SIDPRT,R2 ‘SETUP R3=SID # 
3509 020630 012701 020642 MOV #IDDSMS,R1 SSETUP PRINT IDENT DOUBLE SIDED DEVICE 
3510 020634 004737 002570 CALL = PRTB1S [CALL PRINT BASIC-2 PAR 
3511 020640 000207 APTDID: RETURN SRETURN 
32318 020642 045 101 040 inosns: eASCIZ /%A SIDE #%01/ 
3514 020657 045 116 045 IDSSMS: “ASCIZ /UNZA DRIVE #%01/ 
3 = 


LE cE NR ease te me 


a Neen aD 


en ee ee 


SEC 96 
‘GLOBAL AREAS — MACRO M1200 14=DEC=82 16:33 PAGE 128 
|= MOD U.TST.FTS = FUNCTION TEST SETUP 











| 3333 .SBTTL = MOD U.TST.FTS = FUNCTION TEST SETUP 
| $591 ; BGNSUB 
522 ; SET FUNCTION TEST BIT-FLAGS 
523 3 SETUP TEST IDENT MSG IN “ERRMSG 
524 : SET FLAGS REGISTER CHECK 
3525 ; NOP 
$258 : ENDSUB 
3528 020700 000240 FTSTUP: NOP : 
3529 020702 004737 021122 CALL  CLRCR [CALL CLEAR CTRS & REGS 
3530 020706 012737 000040 002476 MOV #FUNTST,FLAGST :SET FUNCTION TEST BIT-FLAGS 
3531 020714 017737 161546 00252 MOV @TSTID,ERRMSG :SETUP TEST IDENT MS 
3532 020722 052737 000001 002476 BIS WREGCK.FLAGST SET FLAGS-REGISTER CHECK 
3533 020730 004737 021014 CALL SUDVCD :CALL SETUP DEVICE COMMANDS 
3334 020734 000207 RE TURN RETURN 
3536 P 
3537 .SBTTL = MOD U.TST.LTS = LOGIC TEST SETUP 
3539 + BGNSUB 
3540 : CLEAR FUNCTION TEST BIT-FLAGS 
3541 : SETUP TEST IDENT MSG IN "ERRMSG 
3542 : GET TEST TABLE ADDRESS 
3543 : INCREMENT TO NEXT ADDRESS 
3544 : SET ANY FLAGS FROM T THAT ADDRESS 
3369 : SET FLAGS REGISTER CHECK 
3547 + ENDSUB 
3548 e we Se ee ne ee a a oT SES OST SSO SSS Dees ETE DBs SOD Pee wen Bee Oe ewe eee 
3549 020736 000240 LTSTUP: NOP 
3550 020740 004737 021122 CALL  CLRCR tCALL acbEAR CTRS & REGS 
551 020744 042737 000040 002476 BIC WFUNTST,FLAGST :CLEAR FUNCTION TEST BIT-FLAGS 
355¢ 020752 017737 161510 002522 MOV @TSTID,ERRMSG SETUP TEST IDENT MSG 
3553 020760 004737 020772 CALL § SUTSFG L SETUP TEST FLAGS 
3554 020764 004737 021014 CALL SUDVCD ‘EAL SETUP DEVICE COMMANDS 
3555 020770 000207 RETURN SRETURN 
3557 : 
3328 -SBTTL - MOD U.TST.SFG - SETUP TEST FLAGS 
3560 020772 240 SUTSFG: NOP 
3561 020774 013701 002466 MOV TSTID,R1 GET TEST TABLE ADDRESS 
3562 021000 005721 TST (R1)+ tINC TEST TABLE ADDRESS 
336 021002 012137 002476 MOV RID+ FLAGST :SET TEST FLAGS FROM TABLE 
564 021 111137 002500 MOVB = (R11) , FLAGSP :SET PRINT FLAGS FROM TABLE 


006 
$ec7 021012 000207 RETURN RETURN 


OBAL AREAS 
U.SFT.SDC = SETUP DEVICE C 
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on 
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MACRO M1200 14=DEC-82 16:33 PAGE 130 
OMMANDS 


MM —NMononoengs 
~“ 
WG 
~N 


oo 
—— 
~N 


OWW 
uin~n 


at aed 
VNANNNO 
OWWW 
ANNs 


SoSSosocs 


000240 


2 009379 
11 0023 
aeses 0023 


000400 0024 
000200 0023 


6 
002476 
12 
70 





.SBTTL = MOD U.SFT.SDC = SETUP DEVICE COMMANDS 
SUDVCD: MOV #DATBUF EMPADR ;SETUP EMPTY BUFFER ADDRESS 
MOV #1, VARIFY : SETUP SET DENSITY KEYWORD=""1"" 
MOV ADA ATPAT. FILADR SSETUP FILL BUFFER ADDRESS 
18: BIT #DDCFLG.FLAGST :1F DOUBLE DENSITY FLAGS 
BEQ 2$ *SET, TH 
MOV #DENBIT, DENSTY SET DEVICE DENSITY=DOUBLE 
MOV #128. ,WOCNT 3SET WOR D COUNT=DOUBLE DEN SIZE 
2$: CLR DENSTY 3SET DEVICE DENSITY=SINGLE 
MOV #64. ,WOCNT T WORD COUNT=SINGLE DEN SIZE 
3S: MOV WKERUUT,RECADR SET READ ERROR CODE ADR=NORMAL ADR 
MOV #1, TRACK SSETUP TRACK=1 
MOV #1.SECTOR :SETUP SECTOR=1 
RETURN RETURN 


-SBTTL - MOD U.TST.CCR = CLEAR TEST CTRS & ERROR REGS 


3; BGNSUB 

é CLEAR ANY ERRORS FROM PREVIOUS TESTS 

3; ENDSUB 

CLRCR: CLR CMD ;CLEAR 
CLR FIN sCLEAR COMMAND FINI FLAG 
CLR TYPERR sCLEAR TYPE ERROR 
CLR TCMD sCLEAR TEST COMMAN 
CLR XER sCLEAR READ ERR CODE WORD 
CLR TKSCFG sCLEAR TRK & SEC FLAGS 
CLR DELDAT sCLEAR DELETED DATA MODE 
CLR TTEMP1 ;CLEAR TEST TEMP #1 
NOP é 
NOP s 
NOP 3 
NOP é 
RETURN sRETURN 


-SBTTL = - MOD U.TST. 176 - SET TRACK=76 


STTK76: MOV or - TOAte SET TRACK=76. 
MOV #10. ,SECTOR 3SET SECTOR=10. 
RETURN sRETURN 


| | | 7 H 8 
eiscenoy ECTIONS MACRO_M1200 14=DEC-82 16:33 PAGE 131 


TST.176 = SET TRACK=76 
| 
| 


363 TIT F MISCELLANEOUS SECTIONS 
3 -SBTT REPORT CODING SECTION 


2 021212 BGNMOL 


peeve 


+s THE REPORT CODING SECTION CONTAINS T 


3665 

3666 ; PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 
3668 , 

3669 021212 BGNRPT 

3675 

3676 021212 ENDRPT 

3677 

3688 EVEN 


SEG 98 


I 8 
SEG 99 
MISCELLANEOUS SECTIONS MACRO M1200 14=DEC-82 16:33 PAGE 132 
-INITIALIZE SECTION 


3631 .SBTTL INITIALIZE SECTION 
) ++ 
3 : THE INITIALiZE SECTION CONTAINS THE CODING THAT IS PERFORMED 

94 t AT THE BEGINNING OF EACH PASS. 
3695 i= 
st 
3697 021214 BGNINIT 

99 021214 000240 INIT: NOP 
3704 021216 RFLAGS FLGDRS 

706 021224 READEF W#EF.CONTINUE IF CONTINUE 

707 021232 BCOMPLETE XINIT :NOT SET, THEN 

708 021234 READEF #EF PUR TIF R FAl 

709 021242 BCOMPLETE XINIT :NOT SET, THEN 
3710 021244 042737 140600 002500 BIC #RESELG! STAFLG, FLAGSP CLEAR RESTART & START FLAGS 
3711 021252 START: READEF #EF.STAR Z1F START FLAG 
3712 021260 BNCOMPLETE RESTAR 3SET, THEN, ' 2 
3713 021262 STARTO: READBUS SIF BUS IS “LSI-BUS 
3714 021264 BNCOMPLETE UN1 N 
3715 021266 052737 000400 002500 BIS WLSIFLG,FLAGSP SET LSI FLAG-PROGRAM FLAGS 
3716 027274 022737 004177 002120 #6177, LSHIMEM s1F Hy MEMORY Ci777Geut LIMIT 124k) 
3717 021302 101007 BHi STARTI :1S 124K OR HIGHER, THEN 
3718 021304 052737 010000 002500 BIS WFONZFG,FLAGSP :SET rst 11/23 FLAG 
3719 021312 03 BR START1 7BR TO "STARTI" 
3720 021314 042737 000400 002500 UNI: BIC #LSIFLG, FLAGSP Er EAR LSI FLAG-PROGRAM FLAGS 
3721 01322 052737 100000 002500 START1: BIS #STAFLG, FLAGSP zSET STAR ART FLAG 
3768 021332 RESTAR: READEF #EF.RESTART ZIF RESTART FLAG 
3724 021340 BNCOMPLETE NEW :SET, THEN 

725 021342 052737 040000 002500 BIS WRESFLG,FLAGSP SET RESTART FLAG 

726 021350 000404 BR T BR T T 
3727 021352 NEW:  READEF #EF.NEW z1F NEW PASS FLAG 
3728 021360 BNCOMPLETE NEXT N 
3729 021362 012737 177777 021526 SETUP: MOV #=-1, UNIT ; SETUP TO START GETING {UNITS OVER 
3730 021370 062737 000001 021526 NEXT: ADD #1,UNIT UNIT T 
3731 021376 023737 002012 021526 LSUNIT,UNIT TIF DRS" UNIT ENT DIAG UNIT 
3732 021404 001426 BEQ INITER ZNOT EXCEEDED, THEN 
3733 021406 GPHARD UNIT,PLOC [GET NEXT UNIT 
3734 021420 BNCOMPLETE NEXT [IF FOUND A UNIT, THEN 
3735 021422 004737 02174 CALL INTTBL [CALL INITIALIZE TABLES 
3736 021406 004737 02157 CALL —«sUNPKHP “UNPACK HARDAWRE P=TABLES 
3737 0214 SETVEC VECT #INTRHD #PRIOG 
3738 021460 000414 BR XINIT 

739 021462 INITER: PRINTF #INTER1 :PRINT “TOO MANY UNITS" 
3740 021502 012737 000001 002452 V 1, ABORT eet ABORT FLAG 

741 021510 DOCLN 

742 021512 900240 XINIT: : 

749 021514 013737 021526 002512 MOV UNIT ,UNTPRT [SET USER # = LOGICAL UNIT # 
760 021522 ENDINIT 

762 021524 PLoc: .WORD 0 ;P-TABLE LOCATION 

763 021526 900000 UNIT: .WORD 1 [LOGICAL UNIT# UNDER TEST 

765 021530 045 116 045 iNTERI: -ASCIZ /ENZASTART OVER => TOO MANY UNITS/ 

767 e ae ele a eh Ge Gn Ge Ge mS ec ae es PPS CSS SPST Bes SOS PTO SP OTEE Ss Bewr Eee nnwowwwmuwoawaoa om 





see 


| SEQ 100 
MISCELLANEOUS SECTIONS MACRO M1200 14=DEC~82 16:33 PAGE 133 
|= MOD 1.1 = UNPACK HARDWARE P=TABLES 





779 .SBTTL = MOD 1.1 = UNPACK HARDWARE P-TABLES 
| 3782 021572 013701 021524 UNPKHP: MOV PLOC,R1 ZSAVE P=TABLE LOCATION 
| 783 061576 012137 002350 MOV (R1) +, RXCS ‘LOAD UNIT BUS ADR-CSR 
021602 013737 002350 002352 MOV RXCS,RXDB [LOAD UNIT BUS ADR-DBR 
785 021610 373 000002 002352 ADD [SET UNIT BUS ADR-DBR 
786 021616 012137 002354 MOV (Ri)*,VECT SLOAD UNIT VECTOR 
787 021622 005721 IAI1: TST (R1)+ SIF DRIVE #0 
788 021624 001007 BNE LAI1 ‘TH 
3789 021626 005037 002406 CLR DRIVE ZSETUP TO SELECT DRIVE #0 
3790 021632 005037 002420 CLR DRVOFF : SETUP DRIVE BYTE OFFSET DRVO 
3791 021636 105037 002514 CLRB  DRVPRT iSET PRINT DRV #=0 
3792 021642 000411 BR 1811 R TO IF 
3793 021644 012737 000020 002406 LAI1: MOV #DRV1,DRIVE tSETUP TO SELECT DRIVE #1 
3794 021652 012737 000001 002420 MOV #1, DRVOFF SETUP DRIVE BYTE OFFSET DRV1 
3795 021 112737 000001 002514 _  MOVB = #1 ,DRVPRT [SET PRINT DRV #=1 
3796 021 005721 1B!*: TST (Ri)+ iF SIDE #0 SELECTED 
3797 021670 001005 BNE HE HEN 
3798 021672 005037 002410 CLR SIDE SETUP TO SELECT SIDE #0 
3799 021676 105037 002515 CLRB = SIDPRT 3SET PRINT SID #=0 
3800 021702 000406 BR EB11 TO 
3801 021704 012737 001000 002410 LBI1: MOV #SIDE1, SIDE SETUP TO. SELECT SIDE #1 
3802 021712 112737 000001 002515 MOVE #1, SIDPRT [SET PRINT SID #=1 
3803 021720 011102 EBI11: MOV (R1) ,R2 [GET DEVICE SPRIOR ITy 
3804 021722 116237 021732 002356 MOVB  PRITAB(R2),RXPRI ;SETUP PROPER DEVICE PRIORITY 
3805 021730 000207 RETURN ;RETURN 
3807 021732 000 PRITAB: .BYTE PRIOO :PRIORITY 0 
3808 021733 040 -BYTE PRIO1 :PRIORITY 1 
3809 021734 100 “BYTE pRIO2 :PRIORITY 2 
3810 021735 140 “BYTE PRIO :PRIORITY 
3811 021736 200 “BYTE PRIO4 SPRIORITY 4 
3812 021737 240 -BYTE PRIOS SPRIORITY 5 
3813 021740 300 “BYTE PRIO6 :PRIORITY 6 
3814 021741 “BYTE SPRIORITY 7 
381 5 eo @ Swe & De SP eos SG SE SRB SSS KMeEBMEeE DEH BDO EST Sewanee seenoaananwe nr me aean semana a 
3816 
3817 -SBTTL = MOD 1.2 = INITIALIZE TABLES 
3819 4 
3820 021742 000240 INTTBL: NOP : 
3821 021744 012701 002452 MOV #ABORT,R1 [GET ADDRES SOF TABLE TO CLEAR 
3822 021750 012702 000010 MOV #10,R2 7SET TABLE LENGTH 
385% 951786 goss02 me Bh SSEEREMENT TABLE COUNT 
3825 021760 001375 : , THEN 


BNE 1$ 
3866 021762 000207 RETURN ;RETUR 


i ee ees 
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CLEANUP CODING SECTION 
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BES 
=o 


fete 


petted ttt 
Beas eaasue 
Se 


Be 


17 
3870 021776 


7 
3876 022004 
3877 022010 


3879 022012 


3898 022054 
3899 022054 
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Bes 200 
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022012 
002570 


116 


022066 


045 


3832 : 
21764 BGNC 
BRESE 
3860 ; 
1 : THE 
2 
3863 : 
3864 021776 “. BGNDU 
3875 022000 MOV 
00473 
ENDDU 
3878 
3880 
see 
BGNAUT 
900 022060 D 
3904 
3908 
3909 : 
1 
NOP 


~SBTTL CLEANUP CODING SECTION 


+e 
; THE CLEANUP CODING SE 
3 AFTER THE HARDWARE TE 


CTION CONTAINS THE CODING THAT IS PERFORMED 
STS HAVE BEEN PERFORMED. 


NCLN 
CLRVEC VECT sCLEAR VECTOR 
RESET sBUS RESET 
ENDCLN 
-EVEN 


oSBTTL DROP UNIT SECTION 


3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE TO NO 
; LONGER BE TESTED. 


3GET LOGICAL UNIT # 
2SET DROP 
sCALL PRINTB 1 ARG 


MOV RO,R2 
#DUMSG1,R1 
a PRTB1S 


DUMSG1: .ASCIZ /%N%A DROP UNIT#%D1%A FROM TEST2N/ 


-EVEN 


-S8TTL AUTO DROP UNIT SECTION 


: 0 
CALL — ADRTST ZCALL ADDRESSING TST 
ENDAUTO 


-SBTTL ADD UNIT SECTION 


: THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
: TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
; TO THE TEST CYCLE. 


BGNAU 
ENDAU 


‘ EVEN 
ENDMOD 


IS Gs a RO tet ae ie, 
SEG 102 


HARDWARE TESTS MACRO M1200 14-DEC=82 16:33 PAGE 135 
ADD UNIT SECTION 
3936 .TITLE HARDWARE TESTS 
3383 022066 BGNMOD 
985 =SBTTL TEST 0 = ADDRESSING TEST 
987 2 Test TO ASSURE THAT THE DEVICE WILL RESPOND WITHOUT A BUS TRAP. 
989 ; BGNSUB 
3990 : SETUP TEST 
aad : SETUP BUS TRAPS 
3993. : RESET BUS TRAPS 
3994 : IF TRAP 
3995 : THEN=-SET SYSTEM FATAL FLAG 
3996 : ALL FUNCTION TEST ERROR 
3997 : : REPORT BUS TRAP ON RXCSR 
3998 s ENDIF 
3999 : READ RXDBR 
4000 : IF TRAP 
4001 3 THEN=SET SYSTEM FATAL FLAG 
4002 : CALL FUNCTION TEST ERROR 
4003 : : REPORT BUS TRAP ON RXDBR 
4004 : ENDIF 
4005 : RESET BUS TRAPS 
tons : ENDSUB 
4008 022066 000240 ADRTST: NOP 
4009 022070 005037 002452 CLR ABOR *CLEAR ABORT FLAG 
4010 022074 SETVEC SB TRPG L#TRAP,#PRIOG 
4011 022122 017701 160222 XCS,R1 ZREAD RXCSR 
4012 022126 CLRVEC #BTRP4 
4013 022134 005737 002452 TST ABORT z1F ABORT FLAG 
4014 022140 001413 BEQ 1$ :SET, THE 
4015 022142 012701 022212 MOV #TRPMS1,R1 sSET TRAP MESSAGE 
4016 022146 013702 002350 MOV RXCS,R2 ‘SET TRAP ADDRESS 
4017 022152 ERRSF 60, TOMSG,PRTB1 
4018 022162 DODU ~—sCm UNIT 
4019 022170 000207 1$: RETURN :RETURN 


402 vsaaa-rrry ma 77 7-77 Tar 1-7 


1 104 TOMSG: “ASCIZ JADDRESSING TEST/ 
4022 022212 045 040 TRPMS1: astil /%A BUS TRAP AT ADDRESS: %06%N/ 
045 040 SCIZ /%A INTERFACE BAD OR NOT SET TO ABOVE ADDRESS/ 
4024 “EVEN 


— Se 
£2R 















SEQ 103 
HARDWARE e's MACRO M1200 14=DEC-82 16:33 PAGE 136 
MOD U.SFT.TRP = BUS TRAP HANDLER 


4028 -SBTTL - MOD U.SFT.TRP = BUS TRAP HANDLER 


4029 ge 

4030 : FUNCTIONAL DESCRIPTION: SUBR TO HANDLE DEVICE BUS TRAP 
4031 : INPUTS: WN 
403 : IMPLICIT INPUTS: BUS TRAP 

403 3 OUTPUTS: ABORT FLAG 

rte : IMPLICIT OUTPUTS: NONE 

4035 : SUBOR DINATE ROUTINES USED: NONE 

4036 t FUNCTIONAL SIDE EFFECTS: NONE 

4037 3 CALLING SEQUENCE: INTERRUPT 

4038 7: 

4039 

4042 022324 005237 002452 TRAP: INC ABORT 3S=T ABORT FLAG 

£063 022330 000002 RTI SRETURN FROM TRAP INTERRUPT 
4045 : 

4046 ; 

thee 3 TEST SETUP DEFINITIONS 

4049 000000 FRUS1=0 

4050 000000 TN=0 


009001 FUNCT=1 
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EST 1 = 


4053 
022332 
022334 


34 
4081 022440 
4082 022444 


4083 022444 
022444 


022452 
4084 022454 


Pee Sey eens 


000414 
040 


012737 


015026 


022334 
177777 


015026 
177777 


INITIALIZE = FNC 


040 111 


022444 002466 
000002 002324 


020700 


-SBTTL TEST 1 = 
TIMSG: .ASCIZ / 
-EVEN 


INITIALIZE = FNC TST 
11 TO BGN TST 
INITIALIZE = ine TST/ 


34+ 
3 : STATES. VERIFY THAT AN RX INITIALIZE WILL RETURN THE DEVICE TO A VALID 


: : BGNTST 
: IF FUNCTION TEST 
: : THEN-SETUP TEST I.D. 
; : CALL FUNCTION TEST SETUP 
: BUS IN 4 be LIZE 
: : CALL ERROR CHECK 
é : CALL DEVICE STATE CHECK 
: : INCREMENT COMMAND PTR 
; PROGRAM INITIALIZE RX 
: : CALL ERROR CHECK 
: ENDIF 
: ENDTST 
TSETUP 
BGNT1: MOV #TITBL,TSTID sSETUP TEST ID TBL-TEST# 1 
IAT1: BIT #FUNCTT,TSTMOD ;IF TEST MODE=FUNCTION TEST 
BEQ XT sBIT SET, THEN 
CALL FTSTUP sCALL FUNCTION TEST SETUP 
BRESET 
CALL WAIT 
CALL GETREG sCALL GET REGS 
CALL ERRCHK CALL ERROR CHECK 
CALL DVSTCK sCALL DEVICE CK 
CALL INTIAL ZCALL PROG INITIALIZE 
CALL ERRCHK CALL ERROR CHECK 
XT1: EXIT TST 
REGTBL CSONLY 
REGS1=CSONLY 
TTBL 
TITBL: .WORD TIMSG 
WORD =1 
TIRTB: 
-WORD REGS1 
-WORD 1 
ENDTST 


oe ae Se ee 





a ae en ee . - =< y 
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TEST 2 = READ ERROR CODE = FNC T 

-SBTTL TEST 2 = READ ERROR CODE = FNC TST 


456 00041 BR -BR TO BGN TST 
OY 932456 $08 040 122 T2MSG: “ASCIZ 7 READ ERROR CODE = FNC TST/ 

















4088 
4089 
4090 2 Test TO VERIFY THAT THE DEVICE WILL COMPLETE A READ ERROR CODE COMMAND 
toes : : WITHOUT ENCOUNTERING AN ERROR. 
409 3 BGNTST 
4094 $ IF FUNCTION TEST 
4095 : : cede > +1 of! TEST IDENT 
4096 8 : CALL FUNCTION TEST SETUP 
4097 : $ PROGRAM INITIALIZE RX 
4098 3 : CALL ERROR CHECK 
4099 3 : SETUP ERROR CODE ADDRESS 
100 3 : CALL READ ERROR CODE 
4101 8 $ CALL ERROR CHECK ! 
410 : ENDIF 
416 3: ENDTST 
4105 
4106 022514 TSETUP 

022514 atte La 022604 002466 BGNT2: MOV ALAN! TSTID sSETUP TEST ID TBL-TEST# 2 

0225 3 737 000002 002324 IAT2: BIT arUNCTT, TSTMOD TIF TEST MODE=FUNCTION TEST 

0225 14 BEQ a :B1T te THEN 

8 $2 B067 700 CALL FTSTUP 3;CALL FUNCTION TEST SETUP 
4107 737 4 CALL INTIAL sCALL PROGRAM INITIALIZE 
4108 02254 7 17724 CALL sey es sCALL ERROR CHECK 
4109 022546 012737 2442 002364 MOV PXERUUT, RECADR ;SETUP READ ERROR CODE ADDRESS 
4110 554 052737 $05 002500 BIS #RECTST, FLAGSP SET READ ERROR CODE TEST=FLAGSP 
4111 562 7 011340 CALL eeicor CALL READ ae ROR CODE 
oii¢ 022566 7 017724 ALL RRCHK CALL ERROR CHECK 
411 OSSeng 2737 000200 002500 BIC SRECTST FLAGSP [CLEAR READ ERROR CODE TEST=FLAGSP 
4114 022 xT2: EXIT ST 
4115 022604 REGTBL CSONLY 

015026 REGS1=CSONLY 

4116 022604 TTBL 

022604 022460 T2TBL: .WORD T2MSG 

sseve 177777 eWORD -1 

2261 T2RTB: 

022610 0150 $ «WORD REGS1 

022612 177777 eWORD 1 


4117 022614 ENDTST 





— 


HARDWARE TESTS MACRO 
TEST 3 = FILL BUFFER 
4120 


032620 G40 


Wr 


oO 
nN 
o 
eo 
Sas 
Www 
VN 


& 
— 
Ww 
~N 
se 
IN 
Ne 
aS 
w 
™ 
ANNAN ENN 
WWW 


ee 
pay 

Ww 

oO 
Sid 
a | 
= 
of 


Ww 


4142 022720 
015026 
5 BER an 
055459 133959 
1502 
7777 


oS 
nm 
Sx: 
LAS) 
nN NS 
-o 


022726 
4144 022730 


022720 
000002 


020700 
000002 
021014 


17726 


precate 16:33 PAGE 141 


106 


002466 
002324 


002476 








.SOTTL TEST 3 - FULL BUFFER = FNC TST 
T :BR TO BGN TST 
T3MSG: .ASCIZ / FILL BUFFER = FNC TST/ 
EVEN 
3 rest TO VERIFY THE DEVICE BUFFER WILL FILL WITH NO RESULTING ERROR. 
; BGNTST 
; IF FUNCTION TEST 
: : THEN-SETUP TEST IDENT 
3 : SETUP DENSITY C 
3 : CALL SETUP DEVICE COMMANDS 
: : CALL FILL BUFFER 
j iw NOP 
3 ENDTST 
TSETUP 
BGNT3: MOV #T3TBL T$TID : SETUP TEST ID TBL-TEST# 3 
IAT3: BIT aFuNCTT, TSTMOD :IF TEST MODE=FUNCTION TEST 
BEQ xT : eT THE 
CALL FTSTUP [CALL FUNCTION TEST SETUP 
81S #DDCFLG,FLAGST SET DOUBLE DENSITY CONTROL FLAG COMMANDS 
CALL  SUDVCD :CALL SETUP DEVICE COMMANDS 
CALL  FILBUF 
CALL ERRCHK :CALL ERROR CHECK 
XT3: xIT TST 
REGTBL CSONLY 
REGS1=CSONLY 
TTBL 
T3TBL: .WORD T3MSG 
T3RTB: 
.WORD REGS! 
<WORD  =1 


ENDTST 


SEG 106 
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14 EMPTY BUFFER = FNC TST 


Oars Gud «0401085 


4 
4164 022766 
022766 012737 023036 002466 
022774 032737 000002 002324 
023002 0014 
020700 
4165 023010 052737 000002 002476 
004737 021014 
o19e5e 
4168 023026 004737 017724 
4170 023036 
015026 
4171 023036 
023036 


022734 
177777 


023042 015026 
023044 177777 
4172 023046 


-SBTTL TEST 4 = EMPTY BUFFER = FNC TST 
;6R TO BGN TST 
T4MSG: me / EMPTY BUFFER = FNC TST/ 


ee 
;_ TEST TO VERIFY THE DEVICE BUFFER WILL EMPTY WITHOUT ERRORS. 





“a FUNCTION TEST 
: THEN-SETUP TEST IDENT 
: SETUP DENSITY CONTROL 
: cat SETUP DEVICE COMMANDS 
: CALL EMPTY BUFFER 
CALL ERROR CHECK 


ENDIF 
ENDTST 











BGNT4: MOV #T4TBL,TSTID sere TEST ID TBL-TEST# 4 


IAT4: BIT #FUNCTT, TSTMOD TEST MODE=FUNCTION TEST 
BEQ xT4 ‘BIT SET, THEN 
CALL FTSTUP [CALL FUNCTION TEST SETUP 
BIS #DDCFLG,FLAGST SET DOUBLE DENSITY CONTROL FLAG 
CALL  SUDVCD SCALL SETUP DEVICE COMMANDS 
CALL = EMPBUF [CALL EMPTY 
CALL ERRCHK [CALL ERROR CHECK 
x14: EXIT TST 
REGTBL CSONLY 
REGS1=CSONLY 
TTBL 
T4TBL: .WORD  T4MSG 
«WORD =1 
TGRTB: 


-WORD REGS1 
-WORD -1 
ENDTST 


ne a ee 
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040 


023154 
000002 


020700 
000002 
021014 
011266 
017724 


TS = READ STATUS = FNC T 
4175 
023050 000414 
023052 040 
417 
417 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 023102 
023102 012737 
023110 032737 
023116 001414 
4194 Oo31e4 49737 
4195 053133 240 
4196 023134 004737 
4197 023140 004737 
4198 023144 0047357 
4199 023150 
4200 023154 
015026 
4201 023154 
023154 02305 
023156 17777 
023160 
023160 01502 
023162 17777 
4202 023164 


122 


002466 
002324 


002476 


-SBTTL TEST 5 = eure STATUS 
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- on TST 


TO BGN TST 








TSMSG: ae oo 8 READ STATUS = Onc TST/ 
"Test TO VERIFY THAT A DEVICE MAINTENANCE READ STATUS (RXES) COMMAND 
; WILL EXECUTE WITHOUT ER ROR. 
; "BGNTST 
3 IF FUNCTION TEST 
: : THEN-SETUP TEST IDENT 
3 s SETUP DENSITY CONTROL=SINGLE 
: : L SETUP DEVICE COMMANDS 
3 3 CALL READ MAINT STATUS 
: : CALL ERROR CHECK 
3 ENDIF 
3; ENDTST 
TSETUP 
BGNTS: MOV Abda S TSTID z$e TUP TEST ID TBL<-TEST# 5 
IATS: BIT cTt,T TSTMOD :1F TEST MODE=FUNCTION TEST 
BEQ 361 T, THE 
CALL FTSTUP CALL L FUNCTION TEST SETUP 
oie #DDCFLG,FLAGST CLEAR DOUBLE DENSITY CONTROL FLAG 
CALL SUDVCD [CALL ay DEVICE COMMANDS 
CALL RDSTAT [CALL AD MAINT STATUS 
CALL ERRCHK 7 CALL ERROR CHECK 
xT5: EXIT TST 
REGTBL CSONLY 
REGS1=CSONLY 
TTBL 
TSTBL: .WORD TIns6 
TSRTB: 
P REGS1 
eWORD -1 
ENDTST 


nn eee Fy 


woe oe 
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‘Test 6- FILL & EMPTY BUFFER = FNC T 
° 92 1 000420 
02517 040 040 106 
42 
420 
4208 
4209 
4210 
6211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
422 
422 
4224 
4225 
4226 
1358 023230 
053530 012737 023340 002466 
023236 032737 000002 002324 
023244 001433 
023246 004737 020700 
4229 023252 052737 000002 002476 
4230 02 004737 021014 
4231 023264 005037 012660 
4232 023270 004737 012306 
4233 023274 004737 010510 
4234 023300 004737 017724 
4235 023304 004737 01062 
4236 023310 004737 01772 
4237 023314 052737 000020 002476 
4238 023322 004737 013246 
4239 023326 042737 000020 002476 
4240 023334 
4241 023340 


4242 023340 


4243 023350 


-SBTTL TEST 6 = FILL & EMPTY BUFFER = FNC TST 
BGNT6 -BR TO BGN TST 
/ FILL & EMPTY BUFFER = FNC TST/ 


T6OMSG: .ASCIZ 
-EVEN 























++ 
: TEST TO VERIFY THE DEVICE BUFFER DATA IS VALID AFTER A FILL/EMPTY 
: BUFFER COMMAND SEQUENCE. 
3 ST 
: IF FUNCTION TEST 
: : THEN-SETUP TEST IDENT 
: : SETUP DENSITY CONTROL =DOUBLE 
: : CALL SETUP DEVICE COMMANDS 
: : SET DATA PATTERN=RANDOM 
: : CALL DATA PATTERN SETUP 
: : CALL FILL FFER 
: : CALL ERROR CHECK 
3 cALL EMPTY BUFFER 
: : CALL ERROR CHECK 
3 : SET EMPTY BUFFER FLAG 
: : CALL DATA CHECK 
+ ENDTST 
TSETUP 
BGNT6: MOV #T6TBL TTI 3 SETUP TEST 1D. TBL=TESTA 6 
IAT6: BIT #FUNCTT, TSTMOD TEST MODE=FUNCTION TEST 
BEQ XT6 BIT FT, THE 
CALL  FTSTUP CALL FUNCTION TEST SET 


uP 
BIS #DDCFLG,FLAGST SET DOUBLE DENSITY CONTROL FLAG 
SUDVCD ; E COMMANDS 


CALL U sCALL_ SETUP DEVIC 

R PAT SET DATA PATTERN=RAND 
CALL STDATP CALL SET DATA PATTERN 
CALL F ILBUF sCALL FILL BUFF 
CALL ERRCHK 7 CALL CHEC 
CALL EMPBU CALL EMPTY BUFFER 
CALL ERRCHK CALL ERROR CHECK 
BIS WEMBUFF,FLAGST SET at BUFFER FLAG 


CALL DATACK CALL DATA CHECK 
BIC rete sFLAGST CLEAR EMPTY BUFFER FLAG 


EXIT 
REGTBL CSONLY 
TTBL 


XT6: 
REGS1=CSONLY 
T6TBL: .WORD eps 
T6ORTB: 
-WORD REGS1 
WORD -1 


ENDTST 


SEG 109 
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READ & WRITE SECTOR = FNC T 


TEST 7 = 


® 923352 saa 7 


040 


122 


.SBTTL TEST 7 = acts’ & WRITE SECTOR = FNC TST 
T7MSG: ~ASCIZ / BON OEAD & WRITE SECTOR = FNC TST/ 


p++ 
; ad THE DEVICE WILL READ AND WRITE IN BOTH DENSITIES WITHOUT 











art FUNCTION TEST 


Y CHECK 
SETUP hae SECTOR=10 
CLEAR ENDDO FLAG 


set y emit a i athlete DENSITY STATUS 


. e * ee . e ° 
o 
P 4 
to 
Paes 2 
2>2—x> 
S°Sm 
“ 
m 
zo 
+ 
S 


ALL E CK 
SET DENSITY CONTROL WORD=DOUBLE DEN 
CALL WRITE SECTOR 


CALL ERROR CK 
sat READ ae 
: CALL SET TRACK=76, SECTOR=10 
COMP ENDDO F 
DOUNTIL ENDDO FLAGS 0 
ENDIF 
; ENDTST 








SEG 110 
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TEST 7 = READ & WRITE SECTOR = FNC T 


a pacte 012737 023602 002466 8GNI7 nov 
098499 337 7 900003 b035e IAT?: BIT 
02 0014 BEQ 
Os 004737 020700 CALL 
4281 0, 004737 abe CALL 
282 02 005037 002374 CLR 
4283 023446 012737 000012 002376 MOV 
4284 023454 0050357 002504 CLR 
4285 0234 og te BBT7: NOP 
4286 0234 004737 020472 CALL 
4287 023466 042737 004000 002476 BIC 
4288 023474 004737 010744 CALL 
4289 023500 004737 017724 CALL 
4290 023506 004737 011 CALL 
4297 023510 004737 017724 CALL 
4292 023514 004737 0204 CALL 
4293 023520 052737 004000 002476 BIS 
4296 023526 012737 30 002464 MOV 
4295 023534 004737 010744 L 
4296 023540 004737 017724 CALL 
4297 023544 004737 10¢e CALL 
4298 023550 004737 017724 CALL 
4299 023554 0051357 002504 
4300 023560 004737 020430 CALL 
4301 023564 004737 021174 CALL 
$306 063370 005737 504 UBT7: TST 
4303 023574 001331 BNE 
4304 023576 XT7: EXIT 
4305 023602 REGTBL 
015036 
4306 023602 TTBL 
023602 023354 
023604 177777 
023606 
4307 023612 ENDTST 


| 
| 
| 
| 
023606 015036 
023610 177777 


or7ret TSTID 


SETUP. TEST ID TAL-TEST# 7 
CTE, TSTMOD SIF TEST MODE=FUNCTION TEST 

a7 BIT eT THEN 
FTSTUP ?CALL FUNCTION TEST SETUP 
DENCHK [CALL DENSITY CHECK 

ZSET TRACK=0 
#10. ,SECTOR [SET SECTOR=10. 
TTEMP1 3CLEAR ENDDO FLAG 


SDENC PCALL SET eo: CONTROL=DENSITY STATUS 
| haem CLEAR NEG TEST FLAG 


sCALL WRITE SECTOR 
ERRCHK sCALL ERROR CHECK 
READ sCALL READ SECTOR 
ERRCHK sCALL ERROR CHECK 
CDENC sCALL Pg ae DENSITY CONTROL 
#NEGTST,FLAGST :SET NEG TEST FLA 
#DENERR,NGTSER ;SETUP EXPECTED ae TEST ERR=DEN ERR 
ITE CALL WRITE SECTOR 
ERRCHK : RROR CHE 
READ sCALL READ SECTOR 
ERRCHK sCALL ERROR CHE 
TTEMP1 COMPLIMENT ENDDO FLAG 
CDENC 3CALL ag 8 yt DENSITY CONTROL 
STTK76 _ FCALL_SET TRACK=76. 
TTEMP1 sDOUNTIL ENDDO® FLAG 
BBT7 EQUALS 0 
TST 
CSESAL 


REGS1=CSESAL 
T7TBL: .WORD T7MSG 

eWORD -1 
T7RTB: 


«WORD REGS1 
-WORD =1 


TE A 
. 
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T8 = WRITE SECTOR DELETED DATA = 








4310 .SBTTL TEST 8 = WRITE SECTOR DELETED DATA = FNC TST 
023614 000423 . N 
023616 040 040 127 T8MSG: -ASCIZ / WRITE SECTOR DELETED DATA = FNC TST/ 
a 
.- 
o318 TEST TO VERIFY THAT THE DEVICE WILL WRITE A DELETED DATA MARK ON THE 
O31 ; DISKETTE WITHOUT ERROR. 
4316 3 : BGNTS 
4317 : " FUNCTION TEST 
4318 ¢ : THEN-SETUP T NT 
4319 : : SET TRACK=76, SECTOR=10 
4320 3 : CALL DENSITY oe 
4321 : SET DELETED DATA FLAG 
4322 : : SET DENSITY CONTROL WORD=DISK DENSITY 
432 ; : CALL WRITE SECT OR 
4324 : : CALL ERR 
4325 g : CALL READ SECTOR SECTOR 
4326 3 : CALL E 
4327 3 $ CLEAR DELETED DATA FLAG 
4328 ; : CALL WRITE SECTOR 
4329 : : CALL ERROR CK 
4330 3 ENDIF 
4331 : ENDTST 


St 002466 BGNT8: MOV #T8TBL,TSTID sSETUP TEST ID TBL-TEST# 8 
002324 IAT8: ir SFUNCTT. TSTROD at ES t MODE=FUNCTION TEST 


T THE 
020700 CALL FTSTUP 3CALL FUNCTION TEST SETUP 

023 737 021174 CALL STTK76 :CALL SET T —— k=76. 
4335 02371 737 017350 CALL DENCHK sCALL DENSITY CHECK 
4336 o637i8 737 020472 CALL SDENC SCALL SET DENSITY CONTROL=DENSITY STATUS 
4337 023 012737 000010 002402 MOV #DLDCMD ,DELDAT :SETUP D DELETED DATA COMMAND MODE 
4338 0237 004737 010744 CALL WRITE CALL WRITE SECTOR 
4339 023734 004737 017724 CALL ERRCHK sCALL ERROR CHECK 
4340 023740 004737 811 08¢ CALL READ 7CALL READ SECTOR 
4341 023744 004737 017724 CALL ERRCHK sCALL_ERROR CHECK 
4342 023750 tg SU 002402 CLR DELDAT CLEAR DELETED DATA COMMAND MODE 
4343 023754 737 010744 CALL WRITE sCALL WRITE SECTOR 

023760 017724 CALL ERRCHK sCALL ERROR CHECK 


NOP 3 
xT8: EXIT 


4346 766 TST 
4347 02377 REGTBL CSESAL 
REGS1=CSESAL 


4348 Oo 3r7s TSTBL: WORD TEMSG 


023776 TSRTB: 
056 «WORD REGSi 

024000 17777 WORD -1 
4349 024002 ENDTST 


“oS © S 

~N = 

VE 8 8 
e és 


& 

23" SESE 
3 sees 
= a38 sssssse 
wis 

SSS 

S 


po 


39 
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jTEST 9 = SET DENSITY = FNC TST 


SEG 113 


352 -SBTTL TEST 9 = SET DENSITY = FNC TST 
024004 000414 BR BGn's :BR TO BGN TST 
024006 040 040 123 TOMSG: ae / SET DENSITY = FNC TST/ 











; ENDTST 


4353 

4354 3+ 

4355 : TEST TO VERIFY THE DEVICE WILL CHANGE DENSITIES WITHOUT INCURRING AN 
4356 ; ERROR. 

4358 ; BGNTST 

4359 : IF FUNCTION TEST 

4360 3 : THEN-SETUP TEST IDENT 

4361 : CALL DENSITY CHECK 

ri) 3 SET DENSITY ta WORD=DISK DENSITY 
436 3 CALL SET DENSITY 

4364 3 CALL ERROR CK 

4365 : CALL SET rte SECTOR=10 

4366 : CALL READ SECTOR 

4367 $ CALL ERROR CK 

4368 $ SET TRACK=0 

4369 : L READ SECTOR 

4370 : : CALL ERROR CK 

4371 3 2 CALL COMPLIMENT © amet CONTROI. 

4372 3 z CALL SET DEN _— 

4373 ; CALL ERROR C 

4374 ; CALL READ SECTOR 

4375 3 CALL ERROR CK 

4376 3 CALL SET yrs ee SECTOR=10. 

4377 3 CALL Shane SECTOR 

4378 ; CALL ERROR CK 

4379 3 SET DENSITY CONTROL WORD=DISK CENSITY 
4380 é s CALL SET DENSITY 

4381 3 2 CALL ERROR CK 

4382 : ENDIF 





‘ace oa eee oe -  - Ce 
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\TEST 9 = SET DENSITY = FNC TST 


| 
| 4387 024036 TSE TUP 
024036 ois? 7 024210 24 BGNT9: MOV #T9OTBL ys a sSETUP TEST ID TBL-TEST# 9 
024044 032737 000002 2324 IAT9: BIT #FUNCTT,T 31F TEST MODE=FUNCTION TEST 
024052 001454 BEQ xT9 sB1T SET, THEN 
024054 004737 020700 CALL FTSTUP 2 CALL FUNCTION TEST SETUP 
4388 024060 004737 017350 CALL DENCHK ZCALL DENSITY CHECK 
4389 Bsenee 004737 02047 CALL SDENC 3CALL at DENsiT¥ CONTROL=DENSITY STATUS 
4390 0240 004737 01117 CALL SETON sCALL SET DENSITY 
4391 024074 004737 017724 CALL ERRCHK ; ERROR CHECK 
4392 0241 004737 021174 CALL STTK76 sCALL SET TRACK=76. 
4393 024104 004737 0 CALL AD ALL REA 
4394 024110 004737 017724 CALL ERRCHK CALL_ERROR CHECK 
4395 ase lan 005037 002374 CLR ACK ; TRACK 
4396 024120 004737 011062 CALL R : READ Teste 
4397 024124 004737 017724 CALL ERRCHK sCALL ERR 
4398 024130 004737 0204 CALL CDENC 3 CALL COMPLIMENT © meni CONTROL 
4399 024134 004737 011172 CALL SETON sCALL SET DENSITY 
0241 004737 017724 CALL ERRCHK sCALL ERROR CHECK 
4401 024144 004737 011062 CALL 3 CAL 
4402 024150 004737 017724 CALL ERRCHK sCALL ERROR CHECK 
4403 024154 004737 021174 CALL STTK76 sCALL SET TRACK=76. 
0241 004737 011062 CALL READ sCALL READ SECTOR 
4405 024164 004737 017724 CALL ERRCHK CALL ERROR CHECK 
024 004737 020472 CALL SDENC sCALL SET DENSITY CONTROL=DENSITY STATUS 
4407 024174 004737 011172 CALL SETON sCALL SET DENSITY 
4408 0242 004737 017724. CALL ERRCHK sCALL ERROR CHECK 
4409 024204 XT9: EXIT TST 
4410 024210 REGTBL CSESAL 
015036 REGS1=CSESAL 
4411 024210 TTBL 
024210 4006 TOTBL: .WORD TOMSG 
024212 177777 -WORD -1 
024214 TORTB: 
024214 0150 WORD REGS1 
024216 17777 WORD -=1 


24216 
4412 024220 ENDTST 


mm a ee ee + + ee 


poste 


‘WARDWARE TESTS 
TEST 10 = POSITIONING = FNC TST 


5 
024222 
024224 


4437 

4438 Song ta 
024254 
024262 
024270 
024272 

4439 024276 

4440 024304 


4441 024310 
4442 024314 


4449 346 
4450 024352 
4451 024352 

024352 


024360 
4452 024362 


MACRO M1200 14=DEC-82 16:33 PAGE 159 


000414 
040 


012737 


015036 


024224 
177777 


0150 
Vr7979 


120 


117 


002466 
002324 


002510 


002476 


.SBTTL TEST 10 = POSITIONING - ENC TST 
BR BGNT1 TO BGN TST 
T10MSG: “ASCIZ / POSITIONING = ine TST/ 


p++ 
; TEST TO VERIFY — eae WILL CHANGE SECTORS AND TRACKS WITHOUT 
INCURRING AN ERR 


: BGNTS 
" FUNCTION TEST 
: THEN-SETUP TEST IDENT 
: SET TRACK PATTERN=RANDOM 
$ CALL DENSITY CHECK 
i—_— CONTROL WORD=DRV DENSITY 


CALL GET A TRACK 
CALL GET A SECTOR 
CALL Hed SECTOR 


: CALL ERROR CK 
DOUNTIL TRACKS DONE FLAG SET 
ENDIF 
;_ENDTST 


TSETUP 
BGNT10: MOV #TIOTBL,TSTID 


SETUP TEST ID TBL-TEST# 10 


IAT10: BIT #FUNCTT, TSTMOD ZI1F TEST MODE=FUNCTION TEST 
BEQ xT10 ;B1T a Me THEN 
CALL FTSTUP sCALL FUNCTION TEST SETUP 
MOV #ITK!RTK, TKSCFG TSET a ee INIT & RANDOM 
CALL DENCHK CALL DENSITY CHE 
CALL SDENC sCALL SET er? i CONTROL=DENSITY STATUS 
BBT10: CALL GETTRK CALL GET T 
CALL GETSEC sCALL GET SECTOR 
CALL READ sCALL READ SECTOR 
CALL ERRCHK ALL ERROR CHECK 
UBT10: BIT #TRKDON,FLAGST ;DOUNTIL FLAGS=->TRACK DONE FLAG 
BEQ 8BT10 SET 
NOP 3 
MT10: EXIT TST 
REGTBL CSESAL 
REGS1=CSESAL 
TTBL 


TIOTBL: .WORD TIOMSG 
-WORD =1 
TIORTB: 
-WORD REGS1 
-WORD =1 


ENDTST 


n 9 
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HARDWARE TESTS MACRO wert. , wrset~se 16:33 PAGE 160 


TEST 11 


= CSR BITS = LGC T 


56 
024364 000412 
040 


024366 


103 


123 


N 
TIIMSG: .ASCIZ / CSR BITS = LGC TST/ 
EVEN 


SBTTL TEST 11 = CSR BITS = LGC TST 
38R TO BGN TST 


p++ 
3 TEST TO VERIFY THAT THE READ/WRITE BITS OF THE CONTROL AND STATUS REG- 


; ISTER CAN BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE AS EXPECTED. 





BGNTST 
IF LOGIC TEST 
scent sgt TEST TEST + 
X LEGAL STATE yt: 

URITE RAXCSRCALL 1°S (EXCEPT BITS #14 & #1) 

SETUP EXPECTED REGISTER RESULTS 

IF RXCSR DOES NOT=0375 
: : THEN-SETUP ACTUAL REGISTER RESULTS 
: 3 SETUP _ERRNBR=CSR ERROR 

3 CALL ERROR 


ENDIF 

WRITE RXCSR=ALL 0°S 

IF RXCSR DOES NOT =504040 

: —s ACTUAL ryt RESULTS 
: SETUP ERRNBR=CSR ERROR 

H CALL ERROR 
oer 


ENDIF 
ENDTST 


BOARD CALLOUT: 
1. INTERFACE 


a 
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TEST 11 = CSR BITS = LGC TST 


4489 Oeee ls 
02441 
024420 
024426 


4430 
4490 024434 
46 ah 


024532 
4505 024540 
506 02454 


024612 
4514 024614 
024614 
024614 
024616 
4515 024620 


024366 
000000 
000004 
177777 
177777 


006644 
177777 


024602 
000001 


020736 
011610 


002466 BGNT11: 
002324 JATI1: 


155674 
002500 IDT11: 


002436 


002436 LDT11: 
155640 IB6T11: 


002440 
002520 
002436 EBT11: 
155602 
155574 ICT11: 


002440 
002520 


XT11: 


FRUTBL 


ENDTST 


am a + ee ee ee ee 


XT 
LTSTUP 
AIT 


DVSTCK 
#137776, aRXCS 
#LSIFLG,FLAGSP 


LDT 
#3360, REGEXP 
#037366, REGEXP 
REGEXP, @RXCS 
BT11 
@RXCS,REGACT 
#CSRERR,ERRNBR 
#4040, REGEXP 
REGEXP, ARXCS 
xT11 
@RXCS,REGACT 
#CSRERR, ERRNBR 
ERROR 

TST 

O.RGPRT 


TITTBL: 


TIIRTB: 


INTONL 


TI1F TB: 


sSETUP TEST ID TBL<TEST# 11 
zIF_TEST —— C 


BIT SET, 


OR DONE 
:CALL DEVICE rg * | HECK 
ret By XCSR ~ L 


LSI FLG - 


SETS THEN 
3 SETUP EXPECTED REG RESULTS = 
TO IF °B° 


:SETUP EXPECTED REGISTER RESULTS=037566 
21F_RXCSR NOT=EXPECTED REGISTER 


3 THEN 
SETUP ACTUAL — 
3SET —e 


iC OR 
3 SETUP ay REGISTER RESULTS=4040 


WRITE R 


iF — NOT=EXPECTED REGISTER 
‘SETUP ACTUAL oy ee 


SET ERRNBR=CSR 
CALL ERROR 


-WORD 1T11MSG 


- WORD 

WORD RGPRT 
WORD -1 
«WORD -1 


- WORD srona, 


CALL Logic. TEST SETUP 
:BUS a ¥ 


S (EXCEPT BIT#14 & #1) 


SEQ 117 


— 
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1 12 = OBR BITS = LGC TST 


518 -SBTTL TEST 12 - DBR BITS = LGC TST 
024622 00041 BR BGNT12 36R TO BGN TST 
024624 04 104 102 T12MSG: riety / DBR BITS = LGC TST/ 
4331 Test TO VERIFY THAT THE READ/WRITE BITS OF THE DATA BUFFER REGISTER 
$2 4 ; CAN BE WRITTEN INTO AND READ AS EXPECTED. 

















1. LONTERF ACE 


3 BGNTST 

3 iv LOGIC TEST 

: THEN-SETUP TEST IDENT 

: : WRITE RXDBR-ALL 1 

3 : SETUP exPectes baEGISTER RESULTS 

3 : ad RXDBR NO 

: : THEN= seTUP ACTUAL wesisiee RESULTS 
: : : SETUP ERR NBR=DBR ERR 

: $ ENDIF 

3 : WRITE RXDBR-ALL 0°S 

3 : SETUP EXPECTED REGISTER RESULTS 

3 : IF RXDBR NOT 

: : : THEN-SETUP ACTUAL REGISTER RESULTS 
: : : SET ERRNBR=DBR ERR 

3 ENDIF 

: _ENDTST 

; “BOARD ¢. CALLOUT 








SEG 119 
HARDWARE TESTS RO 
TEST 12 = OBR BITS = LGC TST 


4551 4650 TSETUP 
46 12737 0250 BGNT12: MOV ATIZTBL,TSTIO SETUP TEST 1D TBL-TEST# 12 
sii or3e ? pea b08 993458 IAT12: BIT MLOGICT.TSTMOD IF TEST MODE=LOGIC TEST 
0014 9 BEQ xT ‘BIT SET, THEN 

0 466 004 020736 CALL _sLTSTUP [CALL LOGIC TEST SETUP 
4552 0246 BRESET 7BUS RESET 
455 9 74 004737 011610 CALL WAIT [WAIT FOR DONE 
4554 024700 012777 177 155464 MOV a1 anx08 [WRITE RXDBR-ALL 1°S 
4555 024 12737 173767 002436 MOV #173767,REGEXP SETUP EXPECTED REGISTER RESULTS=173767 
4956 024714 023777 155430 18712: CMP REGEXP,@RXDB § :1F RXDBR NOT=EXPECTED REGISTER 
4557 024722 001410 BEQ EBTi2 : THEN 
4558 024704 017737 155422 002440 MOV @RXDB,REGACT SETUP ACTUAL REGISTER RESULTS 
4559 0247 012737 000034 002520 MOV MDBRERR,ERRNBR SET ERRNBR=DBR ERR 
4560 024740 004737 903060 CALL ERROR [CALL ERROR 
4561 024744 9050 7 0024 EBT12: CLR REGEXP :SETUP EXPECTED REGISTER RESULTS=0'S 
436¢ 024750 O12 77 155374 MOV #0,aRX0B 3WRITE RXDBR=ALL 
4365 924756 023777 booese 155366 1CT12: CMP REG XP, a@RXDB iF RXDBR NOT=EXPECTED REGISTER 
4565 024766 017737 155360 002440 MOV x08 REGACT SETUP ACTUAL REGISTER RESULTS 
4566 024774 012737 000034 002520 MOV #DBRERR,ERRNBR  ; SET ERRNBR=DBR ERR 
4567 025002 737 003060 CALL ERROR tCALL 
4568 025006 xT12: EXIT TST 
4569 025012 TTBL  0,RGPRT 

25012 024624 TIZ2TBL: .WORD 112MSG 

025014 <WORD 0 

025016 000004 “WORD RGPRT 

925020 177777 “WORD =1 

50 TI2RTB: 

025022 177777 .WORD  =1 
4570 025024 FRUTBL INTONL 

025024 T12F TB: 


025024 006644 «WORD  INTONL 
025026 177777 WORD -1 
4571 025030 ENDTST 





| 
| SEC 120 
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vest 13 = CSR-DBR COMMON BYTE - LGC TST 
457% SBTTL TEST 13 = CSR-DBR COMMON BYTE ~ LGC TST 
025032 000420 BR T1 TO 
| 0250% © 040 103123. THSMSG: .ASCIZ 7 CSR-DBR COMMON’ BYTE = LGC TST/ 


Test TO VERIFY THAT THE LOWER BYTE OF THE RXCS MAPS INTO THE RXDB AND 
¢_THEREF ORE CHECK WRITE ONLY BITS OF THE RXCS. 


; BGNTST 


IF LOGIC TEST 
: ea 3s 1 TEST NT 
RXCSR LOW BYTE-ALL 1°S _— BIT #1) 











at 4 
at 4 
—— 
$x 
mz 
= 
4 
: ecoe 
2 
a 
= 
wn 
=~ 
am 
Zz 
2 


; T=376 

3 : : THEN-SETUP onus ae $2 Ad RESULTS 
4587 : : $ SE ERR NBR=CSR ERR 

: . CALL ERROR 

: WRITE RXCSR LOW BYTE-ALL 0°S 

é TuP ely: REGISTER RESULTS 

‘ = OW BYTE NOT= 

: THEN=SETUP ocr mesi Stee RESULTS 

; SETUP ERR NBR=CSR ERR 

: CALL 

: ENDIF 

: ENDTST 








4600 3 BOARD CALLOUT: 
4601 3 1. INTERFACE 


4602 Z CSS OSM SYS SE STAM SHC UOT STSADM AOSH TSA HTanDTeT owners DOSE ewes nDe nw wees 
4604 


—— en 


SEG 121 
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TEST 13 = CSR=DBR COMMON BYTE = LGC TST 


| 4607 025074 TSETUP 
5074 0 12737 025242 002466 BGNT13: MOV #T13TBL, TSTID SETUP TEST ID TBL-TEST# 13 
51 000001 002324 JAT13: BIT #LOGICT, TSTMOD TIF Test MODE=LOGIC TEST 
0 511 001458 BEQ xT1 BIT THEN 
511 020736 CALL _—sLTSTuP CALL “Lobtt TEST SETUP 
4608 02511 BRESET 3BUS RESE 
4609 0251 004737 011610 CALL WALT WAIT FOR HONE 
4610 025126 0127 900 7 155216 MOV #376, aRXCS TWRITE RXCSR LOW BYTE-ALL IF (EXCEPT BIT #1) 
4611 025132 012737 002456 MOV #366 ,REGEXP 3 SETUP EXPECTED REGISTER RESULTS= 
4612 025140 12 002436 155204 I8T13: CMPB REGEXP,aRXDB IF RXDBR LOW BYTE NOT=376 
4613 025146 001413 BEQ EBT 113 :T 
4614 025150 117737 155176 002440 MOVB  aRXDB ‘SETUP ACTUAL REGISTER RESULTS 
4615 025156 O42 7 177600 002440 BIC #177200 REGACT [CLEAR TOP BYT 
4616 0 3164 012737 002520 MOV #CSRERR.ERRNBR :SET ERRNBR=CSR ERR 
4617 025172 004737 003060 CALL ERROR [CALL ER 
4618 925176 903037 0024 EBT13: CLR REGEXP [SETUP EXPECTED REGISTER RESULTS=0°S 
4619 025202 112777 000000 155140 MOVB #0, aRXCS [WRITE RXDBR= ° 
4620 025210 123777 002436 155134 ICT13: CMPB REGEXP, @RXDB TIF RXDBR NOT=EXPECTED RESULTS 
1 025216 001407 BEQ XxT1 

4622 025220 005037 002449 CLR REGACT ;SETUP ACTUAL REGISTER RESULTS 
4623 025224 012737 000033 002520 MOV ACSRERR,ERRNBR :SETUP ERRNGR=CSR ERR 
4624 025232 004737 CALL ERROR [CALL ERROR 
4606 025236 XT13: EXIT TST 
sited $338%8 025034 _ sen TI3TBL: .WORD 113MSG 

B52522 860006 a 

025246 000004 “WORD RGPRT 

025250 177777 “WORD 1 

025252 TI3RTB: 

02525 177777 .WORD =1 
4629 025254 FRUTBL INTONL 

025254 T13F TB: 

025254 006644 «WORD INTONL 

025256 177777 “WORD =1 


4630 025260 ENDTST 





HARDWARE TESTS nitin M1200 
TEST 14 = BUS INITIALIZE - 


3 
025262 000415 
025264 040 102 


125 


-SBTTL 


T14MSG: 


4-DEC-82 16:33 PAGE 169 
C TST 


TEST 14 = BUS INITIALIZE = LGC TST 
GNT14 3BR TO BGN TST 
ety / BUS INITIALIZE = LGC TST/ 


Test TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A BUS INITIALIZE. 





: BGNTST 


IF LOGIC TEST 

: THEN-SETUP TEST IDENT 

H ISSUE BUS INITIALIZE 

8 IF RXCSR ERROR BIT SET 

H : THEN-IF RXESR AC LOW BIT SET 
: THEN-SETUP ERROR 

CALL ERR 


ENDIF 
ENDTST 





+ BOARD CALLOUT: 


1. INTERFACE 
2. CONTROLLER 


SEG 122 


a yg TESTS 
TEST 14 = BUS 


WA 


—— 
Fon 


SeseeeRes 


SRSRENEOS 


467 


E5555 
as 
FEF 


& 
BOAR 
% 


2 


PS 

— 

Sss oo 
SOOooooooooecoo ooo 


g56 
as 
SOeReree 
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INITIALIZE = LGC 
012737 0254 002466 B8GNT14 st Ag 
tte eatin 002324 IAT14: BIT 
001451 BEQ 
004737 020736 CALL 
BRESET 
32777 100000 155000 I6T14: BIT 
BON ses BEQ 
327 000006 154772 ICT14: BIT 
poneee BEQ 
012737 000061 002520 MOV 
004737 003060 CALL 
pte BR 
0 4444 000030 154746 IDT14: at 
piers 090020 002520 MOV 
004737 003060 CALL 
00041 BR 
032 000010 154722 IET14: BIT 
201006 BNE 
012737 000050 002520 MOV 
004737 003060 CAL 
000404 BR 
004737 011340 LET14: CALL 
004737 017724 CALL 
KXT14: EXIT 
REGTBL 
TTBL 
025264 
000001 
000000 
177777 
177777 
FRUTBL 
006640 
177777 
ENDTST 


SEQ 123 
#TIGTBL,TSTID i SETUP TEST 1D TBL=TEST# 14 
#LOGICT. TSTMOD TEST MODEL OGIC TEST 
xT14 ‘airs 
LTSTUP CALL st GI fest SETUP 
#ERRBIT ARXCS z1F RXCSR ERROR BIT 
SSET, THEN 
AINITON, ,@RXDB z1F RXESR=INIT DONE 
#NOITDB,ERRNBR *SET ERR NBR=NO INIT DONE-BUS 
ERROR :CALL E RROR 
XT14 :BR TO EXIT 
#DENERR,@RXDB : IF RXESR=DENSITY ERR 
1ET14 :SET, THEN 
#DENDSK,ERRNBR :SET ERR NBR=DISK DEN ERR 
ERROR [CALL ERROR 
XT14 : to EXIT 
WACLOW,@RXDB =: IF RXESR NOT=INITIALIZE DONE BIT 
114 [SET, THEN 
#ACLOWF ERRNBR :SET ERR NBR=NO INIT DONE-BIT 
ERROR [CALL ER ROR 
XT14 :BR TO EXI 
RDERCD [CALL READ TERROR CODE 
ERRCHK [CALL ERROR CHECK 
TST 
REGCK,0 
TIGTBL: .WORD T14MSG 
“WORD REGCK 
“WORD 0 
<WORD =1 
TI4RTB: 
.WORD =1 
INF CTL 
T14F TB: 
.WORD INFCTL 
“WOR 


41 
: SEQ 124 
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TEST 15 = PROGRAMMED INITIALIZE = LGC 


4689 .SBTTL TEST 15 = PROGRAMMED INITIALIZE = LGC TST 
025502 000421 11 . 
025504 040 120 122 T15MSG: “ASCIZ / PROGRAMMED INITIALIZE = LGC TST/ 





4690 
4691 3 ++ 
469 : TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A PROGRAMMED 
469 : INITIALIZE. 
4694 CSS De T TST SSS TOD SMA OD SSS SOT OED TaeE SOD ewooneea en snaan anaes ae anma nanan oaaenmaenane 
4695 : BGNTST 
4696 : IF LOGIC TEST 
4697 g : THEN-SETUP TEST IDE 
4698 : : CALL PROGR AMMED T INITIALIZE 
4699 3 : CALL DEVICE STATE Ck 
4700 ; CALL ERROR CHECK 
4701 ; 3 
4702 ; 
4703 : ENDTST 
4 704 : 9 ew Be oe ee te (CS wR ty Cae Ge ED Se a> GH EP ow Te Se Ge Oe) OD > Se Re Ee SS OS SS ES SS SS OH GD GS SS OP SE Ce Se Oe ee 
4705 : BOARD ort LOUT: 
4706 ; 1. INTERFACE 
4707 3 2. CONTROLLER 
4708 Py SPOS OMS SSS SOT Se SITS SSeS TSS se OS TTS Ss SS eeneewounraenvene SSeS SB OCF OSS SSE eww 
4709 s=- 
4710 
4711 025546 TSETUP 
02386 are 025610 0024 BGNT15: MOV apts TSTID ;SETUP TEST ID TBL-TEST# 15 
025554 032737 000001 002324 IATI5: BIT #LOGICT.TSTMOD SIF TEST — LOGIC TEST 
025562 001410 BEQ xT15 BIT SET, THEN 
025564 737 020736 CALL LTSTUP SCALL LOGIC TEST SETUP 
4712 025570 004737 010440 CALL INTIAL CALL PROG INITIALIZE 
4713 025574 004737 017140 CALL DVSTCK CALL DEVICE STATE CK 
4714 025600 004737 017724 CALL ERRCHK ZCALL ERROR CHECK 
ri AF 025604 xT15: EXIT TST 
4717 025610 REGTBL CSESIT 
015056 REGS1=CSESIT 
4718 025610 TTBL REGCK,0 
025610 025504 TISTBL: .WORD T15MSG 
025612 -WORD REGCK 
025614 000000 «WORD 
025616 177777 -WORD =1 
025620 TISRTB: 
025620 015056 -WORD REGS1 
025622 177777 WORD =1 
4719 025624 FRUTBL = INFCTL 
025624 T15F TB: 
025624 006640 -WORD  INFCTL 
025626 177777 -WORD =1 


4720 025630 ENDTST 


I 10 
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TEST 16 = POWER FAIL = LGC TST 


4723 -SBTTL TEST 16 = POWER FAIL = LGC TST 
025632 000413 BR BGNT16 ;BR TO BGN TST 
025634 040 120 117 TI6MSG: “ASCIZ 7 POWER FAIL = LGC TST/ 
4726 
4725 see 
4726 3 TEST TO VERIFY THAT THE ACLOW CIRCUITS OPERATE AS EXPECTED. 
4728 : BGNTST 
$793 3 IF LOGIC TEST CA] 
47 : : THEN-SETUP TEST IDENT 
4731 : : IF MANUAL INTERVENTION ALLOWED [8] 
4732 : : : THEN-ASK OPERATOR TO POWER DOWN RXO2 ONLY 
4733 : : : IF OPERATION COMPLETE (c] 
473%4 2 : : : THEN-CALL PROGRAMMED INITIALIZE 
4735 : : : : SETUP EXPECTED ERROR=AC LOW 
4736 : : : : SET NEG TEST FLAG=TEST FLAGS 
4737 3 $ CALL ERROR CHECK 
4738 : : ASK OPERATOR TO POWER UP Rx02 
4739 : : IF OPERATION COMPLETE 
4740 : : : : THEN@CLEAR OUT EXPECTED ERROR 
4741 : : : : : CLEAR NEG TEST FLAG=TEST FLAGS 
474 : : : : : CALL INITIAL 
474 : : : : $ CALL ERROR CHECK 
47 : : : $ ENDIF 
4745 : : $ ENDI 
676 : : ENDIF 
474 ; ENDIF 
4748 : ENDTST 
4 749 é ao one PSO Re eo Be we wD eee we eS Se BOSOM ew a Bes Desa a er BeBe SBD wee Os ww Se eS Se ee we SD 
4750 ; BOARD CALLOUT: 
4751 : 1. INTERFACE 
4 752 é Se ee ee ee es Reese Se FO ne SO STE BT Z Zw TOE SS GOBTeBWeec ne e2ewew nar sce wennwe sa woeomwae «ae == 


SEG 125 


HARDWARE TESTS 
TES 


T 16 - 
4756 035669 
0 

0256 


4757 025704 
4758 025710 
4759 025712 
4760 


4776 026102 
4777 Oc6108 
02610 


So 

Nm 
aon 
= 
& 


o 
eed eb weed ad ad td 
i es 


4 

4780 02612 
4781 026175 
4782 02621 


Sur 


4784 
4785 026232 


POWER FA Alt = 


032737 
001445 
004737 
012737 
052737 
004737 


032737 
07 


000000 
177777 


015056 
177777 


006644 
177777 


LGC T 

026102 
000001 
020736 
002504 


000001 


010440 
000050 


004000 
017724 
000002 


004000 
010440 
017724 


002504 


002504 
002476 


T 
006356 BGNT16: MOV 
002324 IATI6: 


18T16: 


ICT16: 


002464 
002476 


IDT16: 


XT16: 


045 PWRMS: 
120 PWDNRY: 
120 PWUPRY: 
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REGTBL 
TTBL 


FRUTBL 


-ASCIZ 
eASCIZ 
eASCIZ 
-EVEN 


ENDTST 


#TI6TBL,TSTID 
#LOGICT, TSTMOD 


XT16 
LTSTUP 
TTEMP1 


ETE xT16 


#PURMS ,UNIT 

PUDNRY - ERP, 1.7 
TTEMP1 

x16 

INTIAL 


#ACLOWF ,NGTSER 
#NEGTST,FLAGST 
ERRCHK 


<2 
= 


#PURMS ,UNIT 
PWUPRY, TTEMP1,1,Y 
EMP1 


#2,1T 

XT16 

#NEGTST ,FLAGST 
INTIAL 

ERRCHK 


SEG 126 


sSETUP TEST ID Ly rig 8 16 
z1F TEST en LOGIC TEST 


ECTcD ERROR=AC LOW 
SET 4 5 Test FLAG=TEST FLAGS 
CALL ERROR CHECK 
oad 
sIF Rx02 I 
POWERED 


: UP, THEN 
sCLEAR NEG TEST FLAG=TEST FLAGS 
sCALL INITIALIZE 


TST 
CSESIT 
REGS1=CSESIT 
REGCK,0 
TI6TBL: .WORD T16MSG 
eWORD REGCK 
WORD 0 
eWORD -=1 
TI6RTB: 
WORD REGS1 
WORD -1 
INTONL 
T16F TB: 
WORD INTONL 
WORD -1 


/ZNZA IS FLOPPY SYSTEM CONTAINING UNIT #%02/ 
/ POWERED DOWN/ 


/ POWERED UP/ 


kK 10 
| SEG 127 
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TEST 17 = CONTROLLER-INTERFACE = LGC TST 


788 ~SBTTL TEST 17 = CONTROLLER-INTERFACE - Lge TST 
026234 000420 BR BGNT17 ;BR TO BGN TST 
026236 040 103 117 ~T17MSG: rly / CONTROLLER-INTERFACE = LGC TST/ 


+ 
im 


; TEST TO VERIFY THAT THE INTERFACE BOARD STATE SEQUENCER IS FUNCTIONAL. 
; ALSO TO VERIFY THE CONTROLLER-INTERFACE HANDSHAKE BY TRYING FUNCTIONS 
; WITH MINIMUM READ/WRITE BOARD INVOLVEMENT. 


; BGNTST 
; IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
SET PROTOCAL vag (TEST SETUP SETS VIS TEST TABLE) 
ALL op te anne oe R CODE 


R CHECK 
: CALL READ MAINT STATUS 
: CALL ERROR CHECK 

; ENDIF 

; ENDTST 
; BOARD CALLOUT: 

; 1. CONTROLLER 

2. INTERFACE 


ee eee 
Pt SEES s > 
ss 
Se Ge Ge Se Ge Ge Ge Ge Go Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Be & 
Oo 
>> 
-—_ 
rc 
mw 
— 
mz 
o-S 
33 
wm 
mm 
7 
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/TEST 17 = CONTROLLER-INTERFACE = LGC T 


4817 02627 TSETUP 
O56 376 012737 026404 0024 BGNT17: MOV #T17TBL,TSTID SETUP TEST ID hg 34 17 
032737 000001 002324 JIATI7: BIT @LOGICT,TSTMOD [IF TEST MODE=LOGIC TEST 


| 
! 
i 
| 


Bsoele 001432 BEQ xT17 sBIT SET, 
026314 004737 020736 CALL LTSTUP CALL LOGIC TEST SETUP 
4818 026320 052737 ¢ 002500 BIS MRECTST,FLAGSP :SET READ ERROR CODE TEST=FLAGSP 
4819 026326 004737 011340 CALL RDERCD [CALL READ ERROR CODE 
4820 0263 004737 017724 CALL ERRCHK sCALL ERROR CHECK 
4821 026336 042737 000200 002500 BIC #RECTST,FLAGSP ;CLEAR READ — CODE TEST=FLAGSP 
4822 026344 004737 010510 CALL F ILBUF sCALL FILL BUFFER 
4823 026350 004737 017724 CALL ERRCHK 7CALL ER ECK 
4824 026354 004737 06 CALL EMPBUF sCALL EMPTY BUFFER 
6360 004737 017724 CALL ERRCHK :CALL ERROR CHECK 
4826 026364 005237 00 INC TCMDCT : INCREMENT TST COMMAND CTR Reeteeneeeeeeres 
4827 026370 004737 011266 CALL RDSTAT 3CALL READ MAINTENANCE STATUS 
4828 026374 004737 017724 CALL ERRCHK SCALL ERROR CHECK 
rts} 026400 XT17: EXIT TST 
4831 026404 REGTBL CSESND,CSESRS 
015076 REGS1=CSESND 
015066 REGS2=CSESRS 
4832 026404 TTBL REGCK ,PROPRT 
026404 026236 TI7TBL: .WORD T17MSG 
026406 000001 «WORD REGCK 
026410 000010 «WORD PROPRT 
026412 177777 -WORD -1 
026414 T17RTB: 
026414 015076 -WORD REGS1 
026416 015066 eWORD REGS2 
026420 177777 eWORD 1 
4833 026422 FRUTBL CTLINF 
026422 T17F TB: 
026422 006646 -WORD CTLINF 
177777 eWORD -=1 


026424 
4834 026426 ENDTST 





SEG 128 


HARDWARE TESTS 
TES NPR = 


T 18 


7 
026430 000410 
0264 


32 
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LGC TST 


040 


116 


120 


SBTTL 


T18MSG: 


rs 


TEST 18 = NPR = LGC TST 
R GNT18 

eASCIZ / NPR = LGC TST/ 
-EVEN 


Mm 10 


:BR TO BGN TST 


;_TEST TO VERIFY THAT THE NPR LOGIC WILL STORE A WORD IN MEMORY. 


: BGNTST 


ENDTST 


IF LOGIC TEST 
: eet hy & TEST I 


ENDIF 





DENT 
RROR CODE STORAGE=1'S 
D ERROR COD 
IF ERROR CODE STORAGE=1°S 
$ Ota ERROR 


SET WORD COUNT=128. 
SET DATA PATTERN=0'S 


ATTERN 

DATA BUFFER AREA=1°S (BEGIN, END & END+1) 
lg ora CONTROL=DOUBLE DENSITY 
CALL LOGIC i 1 ERROR CK 
CALL EMPTY BUFFER 
CALL ERROR CK 
IF BEGIN DATA oA AREA NOT=0'S 
: THEN-SETUP NPR ERROR 

CALL ERROR 


EN 
IF END DATA BUFFER AREA NOT=0°S 
: THEN-CALL NPR ERROR 

Enpie CALL ERROR 

IF END+1 DATA pt NOT=1°S 

: THEN-CALL NPR ERROR 

H CALL ERROR 
ENDIF 


SEQ 129 


+ 
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TEST 18 = NPR = LGC T 


4878 026452 TSETUP 
026452 012737 026752 002466 BGNT18: MOV 
026460 032737 000001 002324 IATI8: BIT 
026466 001527 BEQ 
026470 004737 020736 CALL 

4879 026474 012737 177777 002442 MOV 

4880 026502 004737 011340 CALL 

4881 026506 022737 177777 002442 IST18: CMP 

882 026514 001005 BNE 

4883 026516 012737 000053 002520 MOV 

4884 026524 004737 003060 CALL 

4885 026530 042737 000200 002476 EBT18: BIC 

4886 026536 012737 000200 002370 MOV 

4887 026544 012737 000001 012660 MOV 

4888 026552 004737 012306 CALL 

4889 026556 012702 177777 MOV 

4890 026562 013737 002370 002504 MOV 

4891 026570 006337 002504 ASL 

4892 026574 162737 000004 002504 SUB 

4893 026602 013701 002504 MOV 
026606 010237 036622 MOV 

4895 026612 110261 036622 MOVB 
026616 005201 INC 

4897 026620 110261 036622 MOVE 

4898 026624 012737 000400 002412 MOV 

4899 026632 004737 010510 CALL 
026636 004737 017724 CALL 

4901 026642 004737 010626 CALL 

4902 026646 004737 017724 CALL 

4903 026652 005737 036622 ICT18: TST 

4904 026656 001406 BEQ 

4905 026660 012737 000053 002520 MOV 

4906 026666 004737 003060 CALL 

4907 026672 000425 BR 

4908 026674 013701 002504 ECT18: MOV 
026700 105761 036622 1DT18: TSTB 

4910 026704 001406 BEQ 

4911 026706 012737 000053 002520 MOV 

4912 026714 004737 003060 CALL 

4913 026720 000412 BR 

4914 026722 005201 EDT18: INC 

4915 026724 126127 036622 177777 CMPB 

4916 026732 001405 BEQ 

4917 026734 012737 000053 002520 MOV 

4918 026742 004737 003060 CALL 

4919 026746 XT18: EXIT 

4920 026752 REGTBL 

015076 

4921 026752 TTBL 
026752 026432 
026754 000001 
026756 0000¢0 
026760 177777 
026762 
026762 01507 

26764 17777 


026764 
4922 026766 


FRUTBL 








#T18TBL,TSTID 
#LOGICT, TSTMOD 
xT18 


#NPRERR, ,ERRNBR 
#RECFLG, FLAGST 
#128. ,WOCNT 
#1,P 

STDATP 

#-1,R2 

WOCNT, TTEMP1 
TTEMP1 

#4, TTEMP1 
TFEMP1,R1 

R2, DATBUF 

Re. DATBUF (R1) 
R2,DATBUF (R1) 
#DENBIT DENSTY 


ECT18 

#NPRERR ,ERRNBR 
ERROR 
TTEMP1,R1 
DATBUF (R1) 

DT1 
#NPRERR,,ERRNBR 
ERROR 
xT18 
R1 
DATBUF (R1) ,#=1 
xT18 
#NPRERR ,ERRNBR 
ERROR 
TST 
CSESND 
REGCK,0 


TI8TBL: 


TISRTB: 


INFCTL 


nN 10 


nbtanaentintaed sidainsia . 
SEG 130 


[SETUP TEST ID TBL-TEST# 18 
IF TEST MODE=LOGIC TEST 
‘BIT SE HEN 

CALL a: T SETUP 

[SET READ Erno CODE STORAGE=1'S 
[CALL READ E 

SIF READ ERROR CODE STORAGE=1°S 


3 THEN 
SET ERR NUMBER=NPR ERROR 
SCALL ERROR 
sCLEAR RED ERR COD FLG = FLAGS TST 
sSET LEV D COUNT=128 


; ICE 

3SET DATA PAT=ALL ZEROS 
sCALL SET DATA PATTERN 
3SET R2=ALL 1°S 


3SET TEMP1=WORD COUNT 

; DOUBLE i FOR pont yt aay WORDS IN MEM 
ZADJUST TO END OF BUFFER 

3SET R1=TEMP1 


7SET DATA BUFFER BEGIN=1°S 
3SET DATA BUFFER END=1'°S 
INDEX 


SSET DATA BUFFER END +1=1°S 
SET DENSITY een OLS DENSITY 


RROR_ CHECK 
iF ae 4 BUFFER BEGIN | 
3 SETUP ERRINER=NPR ERR 
CALL Tr 
2BR TO 
sSET_R1=T it 1 
aA a END 
3 SETUP —_ ERR 
CALL ERR 
3BR TO EX ii 


INDEX 
iF ate a AA END +1 
3 SETUP PRRNBRS NPR ERR 
CALL ERROR 


REGS1=CSESND 


-WORD T18MSG 
eWORD REGCK 
WORD 0 
WORD =1 
-WORD REGS1 
WORD =1 
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SEQ 131 


a ayy TESTS aes weee 14=DEC-82 16:33 PAGE 181-1 
TEST 18 = NPR = LGC T 


Oc6766 T18F TB: 
0267 «WORD INFCTL 
02677 ; “WORD =1 
4923 02677, ENDTS: 





HARDWARE TESTS MACRO mere oh aeenett 16: 25 PAGE 183 


= MOD U.SFT.NAT = ADDRESS 


ogee 
<oen 026776 022 Hf 000002 
27006 005737 027100 

495 Oe rOte o0) 3 
4953 027014 5037 027102 

4954 

000002 
30 005237 027100 

4957 027034 000420 
4958 027036 005237 027100 
4959 027042 006337 027102 
040000 
4962 027056 005037 027100 
4963 027062 005037 027102 
4964 027066 000010 
4965 027074 000240 
1966 027076 000207 


4968 027100 
4969 027102 000000 
4970 


NPR ADDRESS T 


027100 


027102 


027102 


002476 








-SBTTL = MOD U.SFT.NAT = ADDRESS NPR ADDRESS TEST 
3; BGNSUB NAT 
3 IF CTR < 2 
: : THEN-IF CTR=0 
: : : THEN-CLEAR ADR 
: : $s pELSE-ADR=ADR#2 
3 : ENDIF 
3 H INCREMENT apd 
3 ELSE-INCREMENT COUNTER 
: $ ss a ADR (ADR=2XADR) 
: : : THEN-SET DONE IN FLAGS 
; $ : CLEAR CTR 
: $ : CLEAR ADR 
: : : SET DO LOOP DONE FLAG 
; $ ENDIF 
3 ENDIF 
; ENDSUB 
NAT NOP 3 
IANAT: CMP #2,NATCTR sIF CTR 
BHIS LANA sLESS THAN 2, THEN 
IENAT TST NATCTR sIF CTR 
BNE LBNA sEQUALS 0, THEN 
CLR NATADR :CLEAR ADRS 
EBNA sBR TO *B° 
ELSE 


L NATADR 
ICNAT: CMP #40000 ,NATADR Ati ADDRESS 
BLOS ECNAT 
CLR NATCTR sCLEAR C 
CLR NATADR 
BIS #DLPDN,FLAGST 
ECNAT: NOP 
EANAT: RETURN * RETURN 
NATCTR: 0 ; COUNTER 
NATADR: 0 ZsADDRESS 


cm 


GREATER THAN 40000, THEN 
OUNTER 
ZCLEAR ADDRESS 





ADR=2 
3IN ERERENT COUNTER 
d INCREMENT COUNTER 

LE ADDRESS 


sSET DO LOOP DONE FLAG 





SEG 132 


poor ee ere 
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‘WARDUARE TESTS MACRO M1200 14-DEC=82 16: 33 PAGE 184 


| TEST 


19 = 


973 
027104 000420 
027106 040 


116 


NPR NON-EXISTENT MEM = LGC T 


120 


-SBTTL TEST 19 - NPR NON-EXISTENT MEM - Lge TST 
BR GNT19 :8R TO BGN TST 
TIOMSG: rely / NPR NON-EXISTENT MEM = LGC TST/ 


Test TO VERIFY THAT THE NPR ———— MEMORY LOGIC WILL TIME OUT 
3 WHEN GIVEN AN ILLEGAL ADDRESS 














OUT: 
%y LONTERFACE 


Jeeta SO SE TEE BTS BS SEO RG So Saws + eM SOT BHC Ve ene awoweana nearer easomeens 


; BGNTST 

3 IF LOGIC TEST 

: THEN-SETUP TEST IDE 

: : IF FONZ WITH oe 

: : THEN-SETUP BUS T 

3 : SETUP NON ERISTENT ADDRESS 

: : : CALL READ ERROR CODE 

: : : IF — ERROR BIT OR RXESR NON-EXISTENT MEMORY BIT NOT SET 
: : : $ H+ THEN-CALL LOGIC TEST ERROR 
$ : : CLEAR ERROR SET BY TRAP 

: : : CLEAR BUS TRAP VECTOR 

: ENDIF 

: ENDIF 

: _ENDTST 

: “BOARD CAL 


SEG 133 
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bers ery TESTS MACRO M1200 = an ae ¥e: 33 PAGE 186 
TEST 19 = NPR NON-EXISTENT MEM = LGC T 


SEG 134 


5001 027146 TSETUP : 
Gates 0127 37 027316 002466 BGNT19: MOV #TISTBL,TSTIO SETUP TEST ID TBL-TEST# 19 
7154 737 000001 002324 IAT19: BIT #LOGICT. TSTHOD TIF TEST MODE=LOGIC TEST 
027162 001447 BEQ xT1 ‘BIT SET, THEN 
| 0 716 004 73 020736 CALL LTSTUP ZCALL LOGIC TEST SETUP 
$002 027170 032737 010000 002500 181719: BIT #FONZFG,FLAGSP :IF FONZ 124K FLAG 
| 500 027176 001041 BNE xT19 :NOT SET, THEN. 
| 5004 027200 005037 002452 CLR ABORT [CLEAR ABORT FLAG 
5005 027204 SETVEC #BTRP4,#TRAP, #PRI06 
5 027252 013737 002344 002364 MOV NXMADR.RECADR ;SETUP NON EXISTENT MEMORY ADR 
5007 02724 737 011340 CALL Dd [CALL READ ERROR CODE 
027244 012737 000052 002464 MOV #NXMERR,NGTSER :SETUP EXPECTED NEG TEST ERR=NXM ERR 
5009 027252 042737 900200 002476 BIC #RECFLG, FLAGST :CLEAR READ ERR CODE FLAG (SU ERR CODE NOT EVALUATED) 
5010 027260 737 (017 2 CALL  ERRCHK [CALL ERROR CHECK 
5011 027264 005037 002452 CLR ABORT ; 
5012 027270 CLRVEC #BTRPG 
5013 027276 004737 010440 CALL INTIAL ZCALL PROG INITIALIZE 
5014 027302 XT19: EXIT TST 
5015 027306 REGTBL 
5016 027306 REGTB 1,4040,400,NXMBIT, 173777 ZCHECK ERR BIT & NXM ERR SET 
02 004040 TIORT1: .WORD 4040 zRXCSR SHOULD BE 
027310 000400 “WORD 400 SRXCSR DONT CARE 
027312 004000 “WORD NXMBIT SRXESR SHOULD BE 
027314 173777 “WORD 173777 SRXESR DONT CARE 
5017 027316 TTBL § REGCK:NEGTST,O 
027316 027106 TISTBL: .WORD T19MSG 
004001 <WORD REGCK!NEGTST 
027 “WORD 0 
027324 1777 “WORD =1 
027326 TIORTB: 
027376 027306 .WORD T19RT1 
027330 177777 “WORD <1 
5018 927332 FRUTBL INTONL 
027332 TI9F TB: 
027332 006644 «WORD INTONL 
177777 “WORD =1 


027334 
5019 027336 


ENDTST 





= ST 20 - 


—— —— ———__ --- — 


5022 
027340 
027342 


7 

5055 027474 
027474 
027474 


027476 
5056 027500 


000413 
040 


012737 
03 oof 


77 
012737 


027342 
000000 


000000 
177777 
177777 


006644 
177777 


111 


116 


eames TESTS MACRO M1200, gf ¢-DEC~82 16:33 PAGE 187 
INTERRUPT = LGC T 


-SBTTL TEST 20 = INTERRUPT = LGC TST 
TO BGN TST 


BR BGNT :8R 
T20MSG: vty / INTERRUPT = LGC TST/ 


+ 
TEST TO VERIFY THAT THE INTERRUPTS CAN BE SET AND THAT THE DEVICE 
RESPONDS AS EXPECTED. 














3; BGNTST 
Fy IF LOGIC TEST 
$ : went 3 TEST IDENT 
é g SET PROCESSOR PRIORITY=> => NO INTERRUPTS 
’ g sausE wer INTERRUPT (WHEN PRIORITY LOWERED) 
: g CALL WATCH DOG TO LOWER PRIORITY & WAIT FOR INTERRUPT 
’ $ CALL ERROR 
; : CLEAR RX INTERRUPT BIT 
: NOP 
: ENDIF 
3; ENDTST 
: BOARD CALLOUT: 
3 1. INTERFACE 
TSE TUP 
BGNT20: MOV #T20TBL,TSTID :SETUP TEST ID sg 3 20 
IAT20: BIT #LOGICT, TSTMOD :1F TEST oy OGIC TEST 
BEQ xT20 ‘BIT SET, THEN 
CALL ‘TS Tup sCALL ykogre TEST SETUP 
CLR Dx :SET WA H DOG MULTIPLIER=0 
SETPRI #PRI06 SET PROCES SOR PRI=NO INTER 
BIS #100 ,aRxCS + CAUSE RX TO INTERRUPT-WHEN PRI LOWERED 
CALL WATCH [CALL WATCH DOG-LOWER PRI & WAIT FOR INTERRUPT 
CALL ERROR sCALL ERROR 
BIC #100, aRxCS [CLEAR RX INTERRUPT BIT 
MOV #10,0X sRESET WATCH DOG MULTIPLIER 
xT20: EXIT TST 
REGTBL 
TTBL 0,0 
T20TBL: .WORD T20MSG 
-WORD 0 
-WORD 0 
WORD -1 
T2ORTB: 
~WORD -1 
FRUTBL INTONL 
T20F TB: 
-WORD INTONL 
-WORD -1 


ENDTST 


SEG 135 
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TEST 21 = PRIORITY LVL = LGC TST 


SEG 136 


9 -SBTTL TEST 21 = PRIORITY LVL = LGC TST 
027502 000414 BR BGNT21 :BR TO BGN TST 
027504 040 120 122 T21MSG: rly / PRIORITY LVL = LGC TST/ 








5060 

5061 

2062 2 Test TO VERIFY THAT THE DEVICE PRIORITY IS SET TO THE CORRECT LEVEL. 
5064 ; BGNTST 

5065 ; IF LOGIC TEST 

5066 : : THEN-SETUP TEST IDENT 

5067 : : LOWER WATCH DOG TIMEOUT MULTIPLIER 

3068 : : SETUP PROCESSOR PRIORITY=6 (PRESET VALUE) 

5070 : : SET PROCESSOR PRIORITY (PRESET VALUE) 

5071 : : : SET DEVICE INTERRUPT BIT TO ENABLE INTERRUPT 

5072 : : : IF IN TERRUPT OR ERROR OCCURR ED. 

50 : : : : THEN-SET DO LOOP DONE BIT => FLAGS 

5074 : : : : ELSE-LOWER SETUP PROCESSOR PRIORITY 

2075 ; : ao CLEAR DEVICE INTERRUPT BIT 

5077 : : DOUNTIL DO LOOP DONE BIT SET, PROCESSOR PRI=0 OR NO DONE BIT ESR 
5078 : : IF SETUP PROCESSOR PRI NOT=DEVICE PRIORITY 

5079 : : : THEN-CALL LOGIC TEST ERROR 

5080 : : ENDIF 

apes 3 enorsret 

5084 : BOARD CALLOUT: 

5085 : 1. INTERFACE 

5086 e Se SPOS ODS SSE DOS SUS OSG BM SOTeBSQWDVETS SSeS OWE SET TTSTOUSSESE DE Des ePESQeaa wes 
5087 oe 





CF + OO 7 


op TESTS MACRO 1200 “rr 
T 21 = PRIORITY LVL - LGC T 
0024 
009384 


5090 Oe 75 
ee 


sree 
5091 057556 


030106 
000001 


WA 
ir 
| 2 012024 
5094 027576 005005 
5095 027600 005037 002520 
5096 027604 116537 021741 002416 
5097 027612 013737 002416 002504 
3 905206 
152514 
002520 
002476 


152460 


Sssss 
NIN “ 
BeSeSEE 
een 


000100 
177770 
000010 
002520 
000400 
002504 
000054 
003060 
002416 
002356 

030006 
002756 


003060 
000010 


116 


002476 


RASS 
NNAAO 
Seas 


002500 
002356 
002520 


MOMIMINONIN 
~ 
Nm 


RRRE 
SIVSSRS 


& 
ue 


SSS88 
33 


012737 
045 


012024 
045 


me ek a ek a ak kk ak a a kt as a ak a es 2 st ts I ts 
ss 


WUNVYYPSVANsS oso r acres SCs eR eTess 


PVP PPV DV DVPUPUPUDV SUP SUSV SV SUSU SUSV SVS SST SISOS SSSI 
SoOooooooooooo SSssssssssssssssss 


027504 
000000 


177777 
177777 


SeeeeEeeeeses 


RNSSSASRNSRAS 


006644 
177777 
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SEG 137 
16:33 PAGE 190 
TSET 
BGNT21: MOV #T21TBL,TSTID SETUP TEST ID TBL-TEST# 21 
IAT21: | BIT OGICT,TSTMOD :IF TEST MODE=LOGIC TEST 
BEQ T21 “BIT SET. 
CALL _LTSTuP SCALL LOGIC TEST SETUP 
CALL INTIAL SCALL PROG INITIALIZE 
MOV #1,DXx ZSET WATCH DOG MULTIPLIER=1 
SETPRI #PRIO6 [SET PROCESSOR PRI=06 (NO INTERRUPTS) 
CLR RS SSET PRIORITY TABLE INDEX 
BBT21: CLR ERRNBR *CLEAR ERROR NUMBER INDICATOR 
MOVB PRITAB*7 (RS) PRIORT ;SET PROCESSOR PRIORITY TO NEW LEVEL 
MOV PRIOR TEMP ©; SETUP TEMP! = PROCESSOR PRI 
ADD OFTERP [NOW SETUP FOR COMPARE, I.E. ONE PRI LVL HIGHER 
BIS 4106. aRXCS SET RX INTERRUPT BIT,AS PROCESSOR PRI LOWERED, INTERRUPTS 
CALL WATCH [CALL WATCH DOG TO WAIT FOR INTERRUPT 
1CT21: CMP #DNNINT,ERRNBR :IF INTERRUPT OR ERROR 
BEQ 121 SOCCURRED, THEN 
BIS #DLPDN,FLAGST :SET DO LOOP DONE FLAG 
BR uBT21 ‘BR TO DOUNTIL o. 
ECT21: DEC RS [SET INDEX TO NEXT LOWER PROCESSOR PRI 
EDT21: BIC #100, aRXCS [CLEAR DEVICE INTERRUPT BIT 
UBT21 CAP R>- 8-8. [DO UNTIL PROCESSOR PRI TABLE ALL DONE 
BIT #DLPON,FLAGST :DOUNTIL FLAGST DO LOOP DONE FLAG 
BEQ BBT21 SET 
1ET21: TST ERRNBR 31F INTERRUPT OCCURRED 
BNE LET21 N 
1FT21 IT ALSIFLG.FLAGSP TIF FLAGSPat SI FLAG 
16721: CAP TTERP1 .RXPRI iF situs PROCESSOR PRIORITY & RX PRIORITY 
MOV #PRILEV,ERRNBR :SETUP ERR NNBR= PRI LEV ERR 
CALL ERROR [CALL ERROR 
MOV PRIORT,R3 ;SETUP INTERRUPT PRI LEV FOR PRT 
MOV RXPRIR2 SSETUP RX PRI LEV FOR PRINT 
MOV #PRIMSG,R1 3SET Up PRI LEV MSG 
CALL = PRTX2S 
BR xT21 ZBR 10 TEXT EXIT 
LET21: CALL ERROR ERR 
XT21: MOV #10.Dx RESET WATCHDOG MULTIPLIER 
PRIMSG: “ASCIZ /ENZS6XA RX SET AT PRI LEV=%03%NZS6%A INTERRUPTED AT PRI LEV=%03/ 
REGTBL 
TRL StéOOjO 
T21TBL: .WORD 121MSG 
“WORD 0 
“WORD 0 
“WORD 1 
T21RTB: 
.WORD =1 
FRUTBL INTONL 
T21F TB: 
«WORD INTONL 
“WORD = 


ENDTST 


—— -- -——- 


TEST 22 = 


5135 
030126 
0301 


PUPUPVPUPU SUSU STASIS MIT 


Oe et ek ek et ek aed ed ed ceed eed. ed ed 


WN OC DONOUSWN"O 0 


000417 
040 


111 


030224 002466 
000001 002324 


116 


111 


HARDWARE TESTS MACRO M1200 parse 16:33 PAGE 191 
INITIALIZE CONTROL = LGC T 


»SBTTL 
T22MSG: 


TEST 22 - Sout gT IAL IZE CONTROL = LGC TST 
BR -BR TO BGN TST 
“ASCIZ 8 OONTTIALIZE CONTROL = LGC TST/ 


"Test TO VERIFY THAT THE CONTROLLER WILL COMPLETE INITIALIZE. 


 BGNTST 




















2 IF LOGIC TEST 
3 : THEN-SETUP TEST IDENT 
: : ISSUE DEVICE PROGRAMMED INITIALIZE 
: : ALL ERRCHK 
: ENDIF 
; ENDTST 
; BOARD CALLOUT: 
; 1. CONTROLLER 
: 2. INTERFACE 
TSETUP 
BGNT22: MOV #T22TBL,TSTID ?SETUP TEST ID TBL-TEST# 22 
IAT22: BIT — z1F TEST ay OGIC TEST 
BEQ xT2. BIT SET, THEN 
CALL LTSTUP 3 CALL LoGic TEST SETUP 
INTIAL CALL INITIALIZE 
CALL ERRCHK 3CALL ERROR CHECK 
KT22: EXIT TST 
REGTBL CEINIT 


REGS 1=CEINIT 
TTBL REGCK ,RGPRT 
T22TBL 


WORD T22MSG 
eWORD REGCK 
«WORD RGPRT 
eWORD -1 
T22RTB: 
-WORD REGS1 
eWORD -1 
FRUTBL CTLINF 
T22F TB: 
«WORD CTLINF 
-WORD 1 


ENDTST 


SEC 138 


1 
SEG 139 
| HARDWARE TESTS MACRO M1200 TS Vis 16:33 PAGE 192 
TEST 23 = DATA BUF INTEGRITY = LGC T 


5163 .SBTTL TEST 23 = DATA BUF INTEGRITY = LGC TST 
030246 000417 “BR GN TST 
030250 040 104 101 T23MSG: ~“ASCIZ / DATA BUF INTEGRITY = LGC TST/ 








5164 
5165 
2106 ; TEST TO VERIFY ALL BITS OF DATA BUFFER, VARIOUS PATTERNS WILL BE USED. 
5168 : : BGNTST 
5169 3 IF LOGIC TEST 
5170 3 $ THENSSETUP TEST IDENT 
5171 3 SETUP RANDOM DATA PATTERN 
5172 3 NOP 
5173 3 BGNDO 
5174 3 : CALL DATA PATTERN SETUP 
5175 3 CALL FILL BUFFER 
5176 3 IF NO ERROR —_ TEST) 
5177 : : THEN-CALL EMPTY BUFFER 
5178 : 8 IF NO ERROR (ESCAPE TEST) 
5179 : : : THEN-SET EMPTY BUFFER FLAG 
5180 3 3 s ALL DATA CHEC 
5181 : s ADVANCE PATTERN COUNT 
5182 3 GET NEW PATTER 
5183 3 IF FOUR PATTERNS DONE 
AY $ THEN-SET DO LOOP DONE 
2186 3 ENDIF 
518 3 E 
5188 3 : DOUNTIL DO LOOP DONE FLAG SET 
5189 3 3 NOP 
5190 $ ENDIF 
5191 3; ENDTST 
5193 ; BOARD CALLOUT: 
5194 3 1. CONTROLLER 
5195 3 2. INTERFACE 
51 96 e oC SSIS ESS OMT Oa aN SDAA SOS SOOTHE TOE SS SST SITS BEDE ee HUTIT BOS Essen Tessa enaown ee 
5197 7° 


ee nee eer ere > ee nn - 
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TEST 23 = 


MI 
nm 
o 
= 
ooo 
3S 
WAN 
oS 


5204 0 
5205 0 


es 
we 


SOOooooococooocoeoooooooeco 


Ww 
~ 
= 
co 
ae 
ot 
Nm 


im 
o 
ag 


Sas 
Bees 


MAVIAVIVIVIVIVIVIVT 
MIMORNIPONIPINY 
— od os ss 2 
NOUSWN=O 
Ww 
So 
See gure 
LS) ore LS) 


SEERERESERESER 
SESRISSERISSRS 


™ 
MNOS 


030442 
030444 
5219 030446 


035757 


030250 
0000 


000000 
177777 
177777 


006646 
177777 


030430 
000001 
020736 


012306 
010510 


010626 
013246 
012660 
000010 


000010 
000010 


012660 


DATA BUF INTEGRITY = LGC T 


doesee 


012660 


012660 


002476 
002476 


BGul23: 
1AT23: 


BBT23: 


1cT23: 


UBT23: 


XT23: 


FRUTBL 


ENDTST 


K 11 


SEG 140 


#T23TBL,TSTID :SETUP TEST ID TeL=TESTA 23 
#LOGIC * TSTMOD z1F TEST MODE =L LOGIC TEST 
T2 “BIT SET, 
LTSTuP PALL ogre Wrest SETUP 
#1,PAT [SET DATA PATTERN = 0°S 
STDATP [CALL SET DATA PATTERN 
FILBUF [CALL FILL BUFFER 
TST tIF NO ERROR, THEN 
EMPBUF [CALL EMPTY BUFFER 
TST :1F NO ERROR, THEN 
DATACK zCALL DATA CHECK 
AT VANCE TO NEXT DATA PATTERN 
#8. ,PAT i FALL DATA PATTERN 
#DLPDN,FLAGST :SET FLAGST=DO_LOOP_DONE_FLAG 
#DLPON.FLAGST :DOUNTIL FLAGST-DO_COOP_BONE_FLAG 
PAT SRESET DATA PATTERN 
TST 
EMBUFF 0 
T23TBL: .WORD T23MSG 
“WORD EMBUFF 
“WORD 
“WORD =1 
T23RTB: 
.WORD =1 
CTLINE 
T23F TB: 
.WORD CTLINF 
“WORD =1 


i ne ee ee ee —EE 


L 11 
SEG 141 
‘WARDWARE TESTS MACRO M1200 None C Ge 16:33 PAGE 195 
1 24 = WRD CNT INTEGRITY = LGC TST 


5222 .SBTTL TEST 24 = WRD CNT INTEGRITY = LGC Ist 
030450 000417 BR BGNT24 :BR TO BGN TST 
030452 040 127 122 T24MSG: “ASCIZ / WROD CNT INTEGRITY = LGC TST/ 








5223 
i 5226 
5225 i Test TO VERIFY ALL BITS OF WORD COUNT REGISTER AND CHECK THAT EXCEEDING 
2558 THE WORD COUNT FOR DISKETTE DENSITY WILL BE DETECTED. 
5228 3 “BGNTST 
5229 ; IF LOGIC TEST 
5230 5 : THEN-SETUP TEST IDENT 
5231 3 $ SET DENSITY CONTROL=DOUBLE 
te : : SET BUFFER LENGTH=128. 
523 3 : BGNDO 
5234 ; : CALL FILL BUFFER 
5235 3 $ IF NO ERROR (ESCAPE sae ¢ 
553% : : : : TW HEN-CALL READ ERROR CODE 
5237 3 $ IF NO ERROR (ESCAPE TEST) 
5238 : $ HEN-IF WORD COUNTS NOT EQUAL 
5239 3 : : THEN-SETUP WORD COUNT ERROR 
5240 : : : CALL ERRO 
5241 3 $ 3 ELSE-UPDATE WORD COUNT 
5242 $ g IF WORD COUNT=0 
5245 3 : : : THEN-SET DO LOOP DONE FLAG 
5244 : : : % : $ ENDIF 
5245 : : : 3: : ENDIF 
5246 : : : 3: ENDIF 
5247 : : : EN 
2se8 : : DOUNTIL DO LOOP DONE FLAG SET 
5250 ; ENDI 
5251 3 ENDTST 


525 J ec enn nena nnn n-ne nn - 22-2 o ne 22 oon 222 enna e222 eee 2-222 - === 


; BOARD CALLOUT: 
; 1. CONTROLLER 


5254 : 





5259 030510 
030510 


SS 
Bee 
wii 
— 
eo 


mMrmrny 
2S 
ooo0oo 


cio 


355555 


5270 030606 
5271 030614 
5272 030620 
5273 030624 
5274 030632 


030700 
5284 030702 
030702 
030702 
030704 
5285 030706 


004737 


030452 
000000 
000004 
177777 
177777 


006646 
177777 


CNT INTEGRITY = 


030670 
000001 
020736 
000200 
010510 
011340 


000010 
000010 


LGC TST 


002466 
002324 


002412 
002370 


002520 
002440 


002476 


002476 
002476 


BGNT26: fF 


IAT24: 


BBT24: 


1CT24: 


LCT24: 
IDT24: 


UBT24: 
XT24: 


HARDWARE TESTS MACRO M1200 are sa 16:33 PAGE 197 
TEST 24 = WRD 


FRUTBL 


ENDTST 


#T24TBL,TSTID 
#LOGICT, TSTMOD 
tT Stup 

LN ENBIT, DENSTY 
#128. ,WOCNT 
F.ILBUF 

TST 

RDERCD 

TST 

LCT24 
#WCERR,ERRNBR 
REGACT 

WC ,REGACT 
REGEXP 


ERROR 
#DLPDN,FLAGST 
UBT24 


UBT24 
#DLPON,FLAGST 
#DLPDN,FLAGST 
BBT24 


TST 
0, RGPRT 


T24TBL: 


T24RTB: 


CTLINF 


T24F TB: 


SEQ 142 


sSETUP TEST ID TBL<TEST# 24 

z1F TEST MODE=LOGIC TEST 

sBIT SET, 

sCALL LOGIC TEST SETUP 

sSET DENSITY CONTROL=DOUBLE 
T WORD COUNT=128. 


THEN 

RR NBR=WORD COUNT ERROR 
3CLEAR REG ACTUAL 

TUP WORD COUNT ACTU. 

3 SETUP — COUNT EXPECTED 


ALL_ ERROR 
iSET a oemerie LOOP DONE FLAG 
BR TO TIL ‘6° 
SDECRERENT WORD COUNT 
z1F D_COUN 
QUALS Zz 


3E ERO, THEN 
3SET FLAGST=D0_LOOP_DONE_FLAG 
47; FLAGST=D0_COOP_BONE_FLAG 


-WORD T24MSG 
- WORD 

-WORD RGPRT 
WORD -1 
WORD -1 
«WORD CTLINF 
-WORD -1 





a 





N11 
SEG 143 
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TEST 25 = CONTROLLER-READ*WRITE ELECT = LGC TST 

5288 -SBTTL TEST 25 = CONTROLLER-READ*WRITE ELECT = LGC TST 

030710 000424 BR BGNT sBR TST 
030712 040 103 117 T25MSG: rt 7 CONTROLLER-READ*WRITE ELECT = LGC TST/ 

5289 

5290 ste 

5291 3; TEST TO VERIFY MINIMAL CONTROLLER BOARD-READ/WRITE ELECTRONICS BOARD 

2536 3_INTERFACE VIA INITIALIZE OF A SELECTED DRIVE. 

5294 ; : BGNTST 

5295 3 IF LOGIC TEST 

5296 3 : THEN-SETUP TEST IDENT 

5297 : NOP 

5298 3 ISSUE oe INITIALIZE 

5299 3 CALL ERR 

5300 ; CALL EEAD. ERROR CODE 

5301 $ - NO ERROR (ESCAPE TEST) 

5302 5 THEN-CALL ERROR CK 

5303 : : 

5304 : : 

5305 ; ENDIF 

306 ; ENDTST 

08 3; BOARD CALLOUT: 
309 3 1. CONTROLL 


ER 
2. R/W ELECTRONICS 


10 
1 1 SS OS SD OD ee a ee a ae ee a ee ee See eT ®e2 FSGS BEE s2 QOS B@2 BSG eQoo ee ean Boenos 
12 





be La To! ita ee eS BE he an eae eee ede We 
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TEST 25 = CONTROLLER-READ*WRITE ELECT - LGC TST 


SEQ 144 


th 4) 


ETUP TEST ID LL rg #34 25 
LOGIC TEST 


5315 0307 TSETUP : 
0307 ot 737 031054 002466 BGNT25: MOV #T25TBL,TSTID ; 
737 :IF yt .-> 


5 
000001 002324 nates, BIT elated 
BE xT2 


031000 004737 020736 CALL LTSTUP [CALL fOére Test SETUP 
5316 0 1004 004737 010440 CALL _—sCINTIAL SCALL INITIALIZE 
5317 031010 7? 017724 CALL  ERRCHK [CALL ERROR CHECK 
5318 031014 005237 002470 INC TCMDCT SINCREMENT TST CMD CTR seeee 
5319 031020 052737 900200 002500 BIS WRECTST,FLAGSP :SET READ ERROR CODE TEST=FLAGSP 
5320 031026 004737 011340 CALL _— RDERCD [CALL READ ERROR CODE 
5321 0310 ESCAPE TST t1F NO ERROR 
3322 031056 006737 017724 CALL _— ERRCHK [CALL ERROR CHECK 
5323 031042 042737 000200 002500 BIC #RECTST,FLAGSP :CLEAR READ ERROR CODE TEST=FLAGSP 
5324 031050 XT25: EXIT TST 
5325 031054 REGTBL CEINIT,CSESND 

015046 REGS1=CEINIT 
015076 REGS2=CSESND 

5326 031054 TTBL = REGCK,O 

031054 030712 T25TBL: .WORD  T2S5MSG 

031056 000001 “WORD REGCK 

031060 “WORD 0 

031062 177777 “WORD 1 

031064 T25RTB: 

031064 015046 .WORD REGS1 

031066 015076 “WORD REGS2 

031070 177777 “WORD 1 
5327 0310 FRUTBL CTLRWE 

03107 125 TB: 

031072 006651 .WORD CTLRWE 

031074 177777 “WORD =1 


5328 031 076 ENDTST 





SUR eeneeeeReTEtieeeeneeennne 


SEQ 145 
HARDWARE TESTS MACRO M1200 14-DEC-82 16:33 PAGE 201 
TEST 26 = READ SECTOR-PRT:1 = LGC TST 


! 

r 

| 5331 -SBTTL TEST 26 - sent SECTOR-PRT:1 = LGC TST 
| 031109 000417 BR BR TO BGN Ist 
031102 040 122 105 T26MSG: “ASCIZ / READ SECTOR=PRT:1 = LGC TST/ 




















3335 

5 +e 

33 3; TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
233) ; BOTH DENSITIES AND RETURN A VALID ERROR CODE. 
2338 ; BGNTS 

5338 3 IF LOGIC TEST 

5339 g : THEN-SETUP TEST IDENT 

5340 8 $ CALL DEVICE DENSITY CK 

5341 $ : Sete DENSITY CONTROL=DISK DEN 
2306 3 : CALL READ SECTOR 

534 3 3 CALL READ ERROR CODE 

5344 s : IF NO COMMAND ERRORS 

5345 3 : : THEN-CALL ERROR CK 

208 5 : : CALL COMPLIMENT DENSITY 
534 $ : : CALL READ SECTOR 

5348 $ : : CALL READ ERROR CODE 
5349 : : : IF NO COMMAND ERRORS 
5350 3 : : : THEN-CALL ERROR CK 
5351 : : : ENDIF 

2526 : : 

535 3 H ENDIF 

5354 3 ENDIF 

5355 3: ENDTST 

5356 3 

5357 3: BOARD CALL 

5358 3 1. CONTROLLER 

5359 8 2. R/W ELECTRONICS 

5361 se 


HARDWARE TESTS 


' 
' 


| 
| 


‘TEST 26 = RE 
5364 031140 
031140 
031186 
5365 081160 
ss Saris 
5368 03117 
3390 081 
8371 OS1D19 
237¢ 031216 
2373 031224 
5374 031 
2379 031256 
2376 03124 
2377 051246 
5378 03125 
5379 031256 
5380 031256 
031256 
031260 
031262 
031264 
031266 
031266 
031270 
5381 03127 
031 
0312 
031274 
5382 031276 


(a eee 





_-——- --—— 


oo 
in 


— 


SUSE EPEES 


=_—w 
mr 


ANNAN i ~ 
So oooo 
SEEN Soe 

we ~ 


3 


XT26: 


RO M1200 14=DEC-82 16:33 PAGE 203 
TOR=PRT:1 = LGC TST 


TSETUP 


BGNT26: MOV 
324 JAT26: 


#T26TBL 
#LOGICT 


D 12 


oTSTID 


TSTMOD 


CDENC 
#NEGTST ,FLAGST 
#DENERR ,NGTSER 


AD 
RDERCD 
TST 
ERRCHK 
TST 
CSESAL 


REGCK 0 


CTLRWE 


T26TBL: 


T26RTB: 


T26F TB: 


SEG 146 


ETUP TEST ID TBL<TEST# 26 


S 
TIF TEST MODE=LOGIC TEST 

[BIT SET, THEN 

[CALL LOGIC TEST SETUP 

[CALL DENSITY CHECK 

[CALL SET DENSITY CONTROL=DENSITY STATUS 
[CALL READ SECTOR 

[CALL READ ERROR CODE 

IF NO C ERRORS, THEN 

[CALL ERROR CHECK 

CALL COMPL 


‘ IMENT DENSITY CONTROL 
sSET FLAGST=NEG TEST FLAG 

sSETUP NEGTEST SET ERROR=DEN ERROR 
sCALL READ SECTOR 


¢ 

sCALL READ ERROR CODE 

: COMMAND ERRORS, THEN 
sCALL ERROR CHECK 


REGS1=CSESAL 
-WORD T26MSG 
WORD REGCK 
WORD 0 
WORD -1 
-WORD REGS1 
WORD <1 
WORD CTLRWE 
WORD -1 


E 12 
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POSITIONING = LGC TST 


TEST 27 = 


SSSSe8e 


Ww 
WIN 


FUPUSUSUSU SSSI SSIS 
~ 


ere 


5398 
5399 


* 931309 000414 
031302 040 


120 


117 


-SBTTL TEST 27 = ua - LGC _TST 
BR 38R TO BGN TST 
T27MSG: yt / POSITIONING = LGC TST/ 


Test TO VERIFY THAT THE DRIVE WILL READ THE HEADERS ON ALL TRACKS OF 
; THE DEIVE AS EXPECTED. 


BGNTST 
IF LOGIC TEST 
THEN-SETUP TEST IDENT 
SET TRACK Hy FLAG 
SET SECTOR=10 





TOR 
IF NO COMMAND ERRORS re TST) 
: THEN-CALL ote 
$ CALL TRACKS E RROR Ck 
: a TRACK INIT FLAG 


P 
$4 
S 


ENDIF 
DOUNTIL TRACKS DONE, ABORT FLAG SET, OR TRACK ERRORS=10 
NDIF 


¢_ENDTST 


; BOARD CALLOUT: 
1. CONTROLLER 
2. R/W ELECTRONICS 














SEQ 147 


ar 


SEC 148 
HARDWARE TESTS MACRO 1200. 14-DEC~82 16:33 PAGE 206 
er 27 = POSITIONING = TST 
_  §6418 031 TSETUP 3 
1 6 127: MOV #T27TBL,TSTID SETUP TEST ID TBL-TEST# 27 
Be 039737 Se 0Gy ieee Bent! BIT #LOGICT. TSTMOD cif Test ODE<L LOGIC TEST 
3 
L —sLTSTup [CALL LOGIC TEST 
| 5419 $31 54 Oi2737 ates 002510 nov iT iRTK.TKSCFG SET TRK SEC F LAge=DTRACKSINIT & RANDOM 
2054 $s vee Soars cart SDENC [CALL SET DENSITY CONTROL=DENSITY STATUS 
5422 031 012737 000010 002376 MOV #10, SECTOR SSET SECTOR 
5423 031400 004737 012662 BBT27: CALL  GETTRK [CALL GET TRAC 
5424 031404 004737 011 CALL READ [CALL READ SECTOR 
5425 031410 004737 011340 CALL _—- RDERCD [CALL READ E CODE 
2t5¢ 031414 ESCAPE TST :1F NO COMMAND ERRORS, THEN 
5427 031420 004737 017516 CALL  TKERCK [CALL TRACK ERROR CHECK 
5428 Eapk 4 042737 000400 002510 BIC #ITK, TKSCFG Ch LEAR INT TRK FLAG 
5429 031432 032737 001000 002476 vUBT27: BIT #TRKDON,FLAGST :DO UNTIL FLAGST-TRACK DONE FLAG 
5430 031440 001757 EQ BBT27 :SET, 
5431 031442 KT27: pL tatcn 
senate 015036 aie REGS1=CSESAL 
—_ ores 031302 *" T271TBL: .WORD 127MSG 
031450 000001 -WORD REGCK 
14 . 
031454 177777 “WORD =1 
031456 T27RTB: 
031456 0150 .WORD REGS1 
031460 17777 WORD 1 
5434 031462 FRUTBL CTLRWE mee. 
HEaprs: 006651 " WORD CTLRWE 
031464 177777 WORD <1 
5435 031466 ENDTST 


[-- 


a eee ee C- 
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‘TEST 28 = WRITE SECTOR-PRT:1 = LGC TST 


38 
031470 000417 
031472 040 127 122 


5451 


5458 


G 12 
SEG 149 


-SBTTL TEST 28 = WRITE SECTOR-PRT:1 - LGC IST 
BR BGNT :BR TO BGN T 
T28MSG: ASCIZ / WRITE SECTOR-PRT:1 = LGC 181 


+e 
; TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
; BOTH DENSITIES AND RETURN A VALID ERROR CODE. 














; BGNTST 

3 IF LOGIC TEST 

: : THEN-SETUP TEST IDENT 

3 : CALL pevite DENSITY CHECK 

$ $ SET DENSITY CONTROL=DISK DEN 

3 : CALL WRITE SECTOR 

3 : I COMMAND ane (ESCAPE TEST) 

: : : THEN-CALL ERROR K 

3 $ : CALL EORPLIMEWS son CONTROL 
: : $ CALL WRITE po SB 

$ : : IF NO COMMAND ERROR (ESCAPE TEST) 
: : : : THEN-CALL ERROR CHECK 

3 : s NDIF 

3 3 ENDIF 

3 ENDIF 

3 _ENDTST 

5 “BOARD CALLOUT: 

: 1. CONTROLLER 

: 2. R/W ELECTRONICS 


HARDWARE TESTS MACRO M1200 wrest 16:33 PAGE 209 
TEST 28 = WRITE SECTOR-PRT:1 - 


5470 031530 TSETUP 
031330 oer se 031642 0024 pants: MOV 
031536 032737 000001 002324 JAT28: BIT 
031544 Ek BEQ 
831208 004737 020736 CALL 

5471 031552 004737 017350 CALL 

a078 031556 004737 020472 CALL 

5473 031562 004737 010744 CALL 

5474 031566 ESCAPE 

5475 031572 004737 017724 CALL 

5476 031576 004737 0204350 CALL 

5477 031602 052737 004000 002476 BIS 

5478 031610 012737 0000350 002464 MOV 

5479 031616 010744 CALL 

5480 031622 004737 011340 CALL 

5481 031626 ESCAPE 

5482 031632 004737 017724 CALL 

5483 031636 xT28: EXIT 

5484 031642 REGTBL 

015036 

5485 031642 TTBL 

31642 031472 
31644 
031646 

031650 177777 
031652 

031652 0150 

1654 17777 

5486 031656 FRUTBL 
031656 
031656 006651 

177777 


031 
5487 031662 ENDTST 


H 12 


#T28TBL,TSTID 
LSSICT TSIM 3) 
xT2. 
LTST 
DENCHK 
SDENC 
WRIT 
TST 
ERRCHK 
CDENC 
#NEGTST,FLAGST 
#DENERR ,NGTSER 
WRI 
RDERCD 
TST 
ERRCHK 
TST 
CSESAL 
REGCK,0O 
T28TBL: 
T28RTB: 
CTLRWE 
T28F TB: 


SEG 150 


:SETUP TEST ID ToL =TESTs 28 
F Test MODE=LOGIC TEST 
[BIT SET, THEN 
CALL st Oéie TEST SETUP 
[CALL DENSITY CHECK 
3CALL SET DENSITY CONTROL=DENSITY STATUS 
3CALL WRITE SECTOR 
c ERROR, THEN 
SCALL ERROR CHECK 
:CALL COMPLIMENT DENSITY CONTROL 
‘SET FLAGST-NEG TEST FLAG 
[SETUP NEG TEST ERR ERR=DENSITY ERR 
ZCALL WRITE 
CALL READ ERROR CODE 
COMMAND ERROR 
Sth ERROR CHECK 


REGS1=CSESAL 
-WORD T28MSG 
-WORD REGCK 
WORD 0 
WORD -1 
WORD REGS1 
WORD <1 
WORD CTLRWE 
WORD -1 


1 
™ SEG 151 
HARDWARE TESTS MACRO M1200 yn ® -82 16: 7, PAGE 210 
TEST 29 = DELETED DATA WRITE PRT:1 = LGC 


5490 -SBTTL TEST 29 - DELETED DATA WRITE PRT: 1 = LGC TST 
666 040 104 105 T29MSG: rly / DELETED DATA wai Te PRT:1 = LGC TST/ 




















5491 

5492 34+ 

5493 ; TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
2tee 3; HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. 

54% ; BGNTST 

5497 3 IF LOGIC TEST 

5498 : : THEN-SETUP TEST IDENT 

5499 3 CALL eit DENSITY CK 

5500 3 SET DENSITY CONTROL=DENSITY STATUS 

5501 : : SET DELETED DATA FLAG (BIT#3-CMD) 

5502 : $ CALL WRITE SECTOR 

5503 3 : IF NO COMMAND ERROR (ESCAPE TEST) 

5504 : : : THEN-CALL READ SECTOR 

5505 3 $ : IF NOC ERROR (ESCAPE TEST) 

5506 : : : : amen 4 pon tow 1 DATA BIT NOT SET 

s208 : : : : THEN-SET on DELETED DATA ERR 
5509 : : : : END 

5510 : : : ENDIF 

5511 3 3 ENDIF 

5512 3 ENDI 

5513 3; ENDTST 

5515 ; BOARD CALLOUT 

5516 8 1. CONTROLLER 

5517 3 2. R/W ELECTRONICS 

5 5 1 8 e See OB ae BE eae ema ao & & & & mw & w= 9D Om tee 9 er om ee ee ae Oo ee ee SO Se Ge OS or me me ee me oe oe oe we we Se oe we ee oe om ee ee we oe 
5519 i-- 


r 


i ee te 
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TEST 29 = DELETED DATA WRITE PRI:T = LGC T 
5522 031732 TSETUP 
O51752 012737 052056 002466 BGNT V 
031740 032737 000001 002324 IAT29: BIT 
031746 001441 BEQ 
031750 004737 020736 CALL 
5523 031754 004737 017350 CALL 
3524 031760 004737 020472 CALL 
5525 031764 012737 000010 02402 MOV 
LR mmm amen 1eT29: ESCAPE 
5528 032002 004737 017724 L 
9529 032006 004737 011062 L 
5530 03201 ICT29: ESCAPE 
5531 032016 032777 000100 150326 1D129: BIT 
5532 032024 001006 BNE 
5533 032026 012737 000032 002520 MOV 
5534 0 004737 003060 CALL 
5535 032040 000494 BR 
5536 032042 005037 002402 LCT29: CLR 
5537 0 004737 010744 CALL 
5538 0 xT29: EXIT 
5539 REGTBL 
015036 
TTBL 
031666 
17777 
032066 015036 
032070 177777 
5541 032072 FRUTBL 
032072 
032072 51 
032074 177777 
5542 032076 ENDTST 


J 12 


#T29TBL,TSTID 
#LOGICT, TSTMOD 
SD 

#DLDCMD ,DELDAT 
WRITE 

TST 

ERRCHK 

READ 

TST 
#OLDBIT,@RXDB 
LCT29 

#OLDTER ,ERRNBR 
ERROR 

xT29 

DELDAT 

WRITE 

TST 

CSESAL 


REGCK,0 
T29TBL: 


T29RTB: 


CTLRWE 
T29F TB: 


SEQ 152 


SETUP TEST ID ~ ae 29 


:I1F TEST MODESLOGIC T 

BIT § 

[CALL dee Te 

CALL DEVICE TOENSTTY y CHECK 

[CALL SET DEN ENSITY een STATUS 


SET DELETED 
CALL WRITE 


IF NO COMMAND E 
CALL ERROR CHECK 
:CALL READ SECTOR 
“IF NO COMMAND ERR 
SIF RXESR=DELETED bata. Bir 

:NOT SET, TH 

SSETUP ERROR NUMBER=DELETED DATA ERROR 
CALL ERROR 


xIT TST 
SCLEAR DEL DATA MODE 
sCALL WRITE SECTOR = CLR DATA FIELD 


REGS1=CSESAL 


-WORD T29MSG 
-WORD REGCK 
WORD 0 
WORD -1 
eWORD REGS1 
-WORD <1 
-WORD CTLRWE 
WORD =1 


SEQ 153 
‘HARDWARE TESTS MACRO M1200 14=-DEC-82 16:33 PAGE 213 
\TEST 30 = SET DENSITY = LGC TST 














| §545 .SBTTL TEST 30 = SET DENSITY = LGC TST 
| 032100 000414 BR BGNT30 ;BR TO BGN TST 
| 032102 040 123 105 T3OMSG: ret / SET DENSITY = LGc TST/ 
| $506 
5547 i+¢ 
5548 3; TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE SET DENSITY IN BOTH 
5549 + DENSITIES - THE VALID WORD WILL ALSO BE CHECKED. non SO TO VERIFY THAT 
3220 ;_THE DRIVE WILL READ IN THE NEW DENSITY WITHOUT ERROR. 
$552 $ “BGNTST 
5553 3 IF LOGIC TEST 
5554 : : THEN-SETUP TEST IDENT 
5555 3 CALL DEVICE ote CHECK 
5556 é SAVE DEVICE DENSITY 
5557 3 SET DENSITY CONTROL=SINGLE DEN 
5558 $ ioe SET DENSITY 
5559 ; IF NO COMMAND ERROR (ESCAPE TST) 
5560 ; THEN=CALL ERROR CHECK ism 
5561 § SET VALIDITY | a “s 
5562 $ CALL SET DENSITY 
5563 : : : CALL READ ERROR CODE 
5564 : : : IF NO COMMAND ERROR ceseeet jigt 
5565 2 $ $ : THEN-SET FLAGST NEG TEST FLAG 
5566 3 : : SETUP EXPECTED ERR= sf be KEY WD ERR 
5567 : : : L ERROR CHECK 
5568 3 $ : SET DENSITY CONTROL=DOUBLE DENSITY 
5569 s : SET VALIDITY WORD=ASCII ‘I’ 
5570 Z 3 CALL SET DENSITY 
5571 : : NO COMMAND ERROR (ESCAPE TST) 
5572 : : THEN-CALL ERROR CHECK 
5575 3 : CALL DEVICE DENSITY CHECK 
5574 3 : : IF DEVICE DENSITY NOT=SET DENSITY 
5575 : : : THEN-SET ERR Or aa NOT SET 
5576 : : : : CALL ERROR CHECK 
5577 : : $ ENDIF 
5578 s : $ If SAVED DEVICE DENSITY=DOUBLE DENSITY 
5579 3 : : THEN-SET DENSITY CONTROL=SINGLE DEN 
5580 : : : ENDIF 
5581 $ : ENDIF 
5582 3 $ ENDI 
5583 3 ENDIF 
5584 : 
5585 3; ENDTST 
5586 » SS Se Se SS Ce Oe Em Se SD OP Ge ae Oe Gp ae ee OD em we we WSO SSO eet eBenewe nee aw ewe we ew Dew Oo @& = we & = wos 
5587 3 BOARD CALLOUT: 
5588 3 1. CONTROLLER 
5589 3 2. R/W ELECTRONICS 
5 590 é SSS SSeS ewer nase eo neous ses aes ee SS Se eS ee em Ge OD me ee ew we we ete (> > ae me ee a eS SE ae oe ww oe oe 
5591 ie 
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‘TEST 30 = SET DENSITY = LGC TST 
559% 032132 TSETUP 
032132 012737 032356 002466 BGNT30: MOV 
032140 032737 000001 002324 IAT30: BIT 
| 032146 001501 BEQ 
032150 004737 020736 CALL 
| $595 032154 004737 017350 CALL 
| §596 032160 013737 002414 002506 MOV 
| 3397 032166 005037 02412 CLR 
5598 032172 004737 01117 CALL 
5599 032176 ESCAPE 
5600 032202 004737 017724 CALL 
5601 032206 012737 000113 002372 MOV 
5602 032214 004737 011172 CALL 
5603 032220 004737 011340 CALL 
5604 03222 ESCAPE 
5605 032230 052737 004000 002476 BIS 
5606 032236 012737 000036 002464 MOV 
5607 032244 004737 017724 CALL 
5608 032250 012737 000400 002412 MOV 
5609 032256 012737 000111 002372 MOV 
5610 032264 042737 004000 002476 BIC 
5611 032272 004737 011172 CALL 
5612 032276 ESCAPE 
613 032302 004737 017724 CALL 
5614 032306 004737 017350 CALL 
5615 032312 023737 002414 002412 CMP 
5616 032320 001405 BEQ 
5617 032322 012737 000035 002520 MOV 
5618 032330 004737 003060 CALL 
5619 032334 005737 002506 181730: TST 
5620 032340 001404 BEQ 
5621 032342 005037 002412 CLR 
5622 032346 004737 011172 CALL 
5623 032352 xT30: EXIT 
5624 032356 REGTBL 
015036 
5625 032356 TTBL 
032356 032102 
032360 000001 
032362 000000 
2364 177777 
032366 
032366 015036 
032370 177777 
5626 032372 FRUTBL 
032372 
032372 006651 
2374 177777 


032374 
5627 032376 


ENDTST 


L 12 


#T30TBL,TSTID 
ee 


T 
#NEGTST,FLAGST 
#SOKYWD ,NGTSER 


ERRCHK 

ay yl DENSTY 
#1 VARIFY 
mMEGTST FLAGST 
SETD 

ist. 

ERRCHK 

DENCHK 
me 
#STONER ,ERRNBR 
ERROR 

TSAVE1 

xT30 

DENSTY 

SETON 

TST 

CSESAL 

REGCK,0 


T3OTBL: 


T3ORTB: 


CTLRWE 


T30F TB: 


SEQ 154 


?SETUP TEST ID TBL<-TEST# 30 
MODE=LOGIC TEST 


z1F yt 

3B1T THEN 

3 CAL 1 togre TEST SETUP 

SEALE DENSITY CH im 

sSAVE DEVICE DEN 
sSET DENSITY CONTROLS SINGLE DENSITY 
sCALL SET IT 

sIF NOC ERROR, THEN 

3CALL ERROR CH 


ECK 
VALIDITY WORD: ASCII °K"* 
SCALL SET DENSITY 
READ ERROR CODE 
COMMAND coi 
?SET FLAGST-NEG TEST FLAG 
7SETUP EXPECTED ERRORSSE? DEN KEYWORD ERROR 
ZCALL ERROR CHECK 
7SET DENSITY CONTROL=DOUBLE DENSITY 
3SET VALIDITY WORD=ASCII “‘I** 
CLEAR A Ngo Loe TEST FLAG 


:CALL SET 
F NO C ERROR, THEN 
SCALL ERROR CHECK 
CALL DENSITY CHECK 
SIF DENSITY DID 
:NOT SET, THEN 
T ERROR” NBR=DENSITY DIDN'T SET ERROR 
ah ERROR 


z1F SAVED DENSITY 

EQUALS DOUBLE DEN, THEN 
7SET DENSITY CONTROL=SINGLE DEN 
CALL SET DENSITY 


REGS1=CSESAL 
«WORD T3OMSG 
«WORD REGCK 
eWORD 0 
«WORD REGS1 
«WORD -1 
eWORD CTLRWE 
e WORD -1 





rr ee 


m 12 
| 
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T 31 = SECTOR ADR - TST 
30 .SBTTL TEST 31 = SECTOR ADR = LGC TST 
032400 000413 BR BGNT31 sBR TO BGN TST 
| 032402 040 123 105 T31MSG: “ASCIZ / SECTOR ADR = LGC TST/ 
5631 
5632 i++ 
5633 : TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
263% : SECTOR ADDRESSES PROPERLY. 
5636 : BGNTST 
5637 ; IF LOGIC TEST 
5638 : : THEN-SETUP TEST IDENT 
5639 : : SET TRACK ADR=0 
5640 : : SET SECTOR LEGAL FALG 
5641 : : SET SECTOR INIT 
5642 ; : BGNDO 
5643 : : : CALL GET SECTOR ADR 
5644 : : : CALL READ SECTOR 
5645 : : : CALL READ ERROR CODE 
5646 : : : IF FINI FLAG NOT SET 
5647 : 2 : : THEN- 
5648 : : : 3: IF SECTOR ADR NOT=TARGET SECTOR ADR 
5649 3 : : 8 THEN-SETUP TO PRINT ERROR 
5650 : : rs : CALL ERROR 
5651 : : > : +: ELSE=CALL ERROR CK 
5652 : : : ENDIF 
5653 3 : ENDIF 
5654 : : DOUNTIL SECTORS DONE FLAG SET OR ABORT FLAG SET 
5655 : : ae sat rene DONE FLAG 
5656 : : SET DONE TI ME ouT MULT IPLIER=100 
5657 : : SET NEG TEST FLAG 
5658 : : BGNDO 
5659 : : CALL READ SECTOR 
5660 : : CALL READ ERROR CODE 
5661 : : IF FINI FLAG NOT SET 
5662 : : THEN “IF SECTOR ADR NOT=TARGET SECTOR ADR 
5663 : THEN-SET ERR=SECTOR ADR ERROR 
5664 : CALL ERROR 
5665 : ELSE-CALL ERROR CHECK 
5666 3 : DIF 
5667 : : ENDIF 
5668 : : DOUNTIL SECTORS DONE FLAG SET OR FINI FLAG SET 
5669 5 : NOP 
5670 3 ENDIF 
5671 : ENDTST 
5672 e (Se Se Oe So; van tm GD Ge tas ee Om ae Se as Gee oe + a Ge (RUD ew a GS me me em (Se oe ee > ee ee SS D> eS ee Se ee ee me Tae Sp oe GD Ge ew a ew oy 
5673 : BOARD CALLOUT: 
5674 : 1. CONTROLLER 


5675 : 
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TEST 31 = SECTOR ADR = LGC T 
5679 032430 TSETUP 
032430 012737 032730 002466 BGNT31: MOV 
032436 032737 1 002324 JIAT31: BIT 
032444 001527 BEQ 
ba5ceS 004737 020736 CALL 
5680 032452 004737 010440 CALL 
5681 032456 004737 017350 CALL 
5 032462 004737 020472 CALL 
5683 032466 012737 001002 002510 MOV 
5684 032474 004737 013104 BBT31: CALL 
5685 032500 004737 011062 CALL 
5686 032504 004737 011340 CALL 
5687 032510 0057357 002454 ICT31: TST 
5688 032514 001024 BNE 
5689 032516 1237357 002376 002447 IDT31: CMPB 
5690 032524 001416 BEQ 
5691 032526 012737 000042 002520 MOV 
5692 032534 052737 000002 002500 BIS 
5693 032542 004737 003060 CALL 
5694 032546 042737 000002 002500 BIC 
5695 032554 004737 010440 CALL 
5696 032560 000402 BR 
5697 032562 004737 017724 LDT31: CALL 
5698 032566 005737 002452 T31: TST 
5699 032572 1 BNE 
5700 032574 032737 002000 002476 BIT 
5701 032602 001734 BEQ 
3702 032604 042737 002000 002476 EBT31: BIC 
5703 032612 052737 000 002476 BIS 
5704 032620 012737 000003 002464 MOV 
5705 032626 012737 000100 002474 MOV 
5706 032634 012737 002376 MOV 
5707 032642 004737 011062 BET31: CALL 
5708 032646 004737 011340 CALL 
5709 032652 005737 002454 IFT31: TST 
5710 032656 001017 BNE 
5711 032660 123737 002376 002447 IGT31: C 
5712 032666 001411 BEQ 
5713 032670 052737 000002 002500 BIS 
5714 032676 012737 000042 002520 MOV 
5715 032704 004737 003060 CALL 
5716 032710 000402 BR 
5717 032712 004737 017724 LGT31: CALL 
5718 032716 012737 000004 002474 EFT31: MOV 
5719 032724 XT31: EXIT 
5720 032730 REGTBL 
015036 
5721 032730 TTBL 
032730 032402 
032732 000001 
032734 000000 
32736 177777 
032740 
032740 015036 
032742 177777 
5722 032744 FRUTBL 
032744 





SEQ 156 
#T31TBL,TSTID :SETUP TEST ID TBL<TEST# 31 
#LOGICT, TSTMOD OT eat a LOGIC TEST 
xT31 ‘BIT SET, THEN 
TSTUP CALL LOGIC TEST SETUP 

INTIAL CALL INITA it IZE 
DENCHK CALL DENSITY CHECK 
SDENC CALL SET DENSITY CONTROL=DENSITY STATUS 
#ISC!SSC,TKSCFG ;SETUP SECTOR Neate tence & SEQUENCE 
GETSEC sCALL GET SECTOR 
READ CALL READ SECTOR 
RDERCD scm | be ERROR CODE 
FIN IF FINI FLAG 
UBT31 sNOT SET, THEN 
33° aaa z1F SECTOR - & DEVICE TARGET SECTOR 
#SECAER,ERRNBR SETUP ERR NBR=SECTOR ADDRESS ERROR 
— 3SET "ated SECTOR ADDRESS FLAG 
#SCPRT ,FLAGSP SCLEAR Shite SECTOR ADDRESS FLAG 
INTIAL 3CALL_INITAILIZE 

78R TO DOUNT i *B° 
ERRCHK 7CALL_ERROR oe 
ABORT ;DOUNTIL L ABORT FLAG 


EBT31 
#SECDON, FLAGST 
BBT31 

#SECDON, FLAGST 
#NEGTST.FLAGST 
#RDERR NGTSER 
#100 DNWT MT 
#0, SECTOR 
READ 

RDERCD 

FIN 

EFT31 

SECTOR, TSEC 
LGT31 
#SCPRT,FLAGSP 
#SECAER, ERRNBR 
ERROR 

EFT31 

ERRCHK 

#4, DNWTMT 

TST 

CSESAL 

REGCK,0 


T31TBL: 


T31RTB: 


CTLRWE 


T31F TB: 


ZFLAGST=SECTOR DONE FLAG 
3SET 


:CLEAR, fio pl Sp FLAG 
7SET FLAGST-NEG TEST FLAG 

‘SE Tur EXPECTED ERROR=READ ERROR (SECTOR NOT FOUND EC=70) 
3SET 7g By en SO NO TIME OUT 


T THEN 
iIF SECTOR ADR AND TARGET SECTOR 
sNOT EQUAL 
SET FLAGSP=-PRINT SECTOR ADDRESS FLAG 
SETUP ERR NBR=SECTOR ADDRESS ERROR 
CALL ERROR 
CALL TO oo *G° 
ZCALL_ERROR CHECK 
RESET DONE WAIT MUTIPLIER TO NORMAL 


REGS1=CSESAL 


-WORD T31MSG 
eWORD REGCK 
WORD 0 
WORD 1 
-WORD REGS1 
«WOR 1 















TEST 31 = SECTOR ADR = 


O3ere6 77977 


5723 032750 
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ENDTST 


Cc pune 





RI x RS ah dts td RIN ioe Pane MD cay Sct cai. Mca 
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TEST 32 = TRACK - icc T 


SEG 158 





726 .SBTTL TEST 32 = TRACK ADR = LGC TST 
032752 000613 BR BGNT32 -BR TO BGN TST 
032754 040 124 122 T32MSG: “ASCIZ / TRACK ADR = LGC TST/ 




















5727 

5728 

He "Test TO VERIFY THAT THE * tienen WILL HANDLE ALL LEGAL AND ILLEGAL 
rie + TRACK ADDRESSES PROPERL 

ie: ; BGNTST 

573 $ IF LOGIC TEST 

5734 3 : THEN-SETUP TEST 

5735 ; : SET TRACK tae “ SEQUENCE FLAGS 

5736 3 : BGNDO 

5737 : : : BGNDO 

5738 ; : : : CALL GET TRACK ADR 

5739 : : : : CLEAR TRACK INIT FLAG 

5740 : : : +: CALL READ SECTOR 

5741 : : : : CALL READ ERROR CODE 

5742 : : : : IF FINI FLAG NOT SET 

5743 : : : : : THEN- 

5744 : : = If TRACK ADR NOT=TARGET TRACK ADR 

anne : : : &: 4 : | aaa LOGIC TEST ERROR 

5747 : ss IF ILLEGAL FLAG NOT SET 

5748 : ses : THEN-JF TRACK ADR NOT=UNIT TRACK ADR 
5749 s : a 2 : : THEN-SETUP TRACK ADR ERR & CALL ERROR 
5750 : : as sy : : ELSE-IF ERROR CODE=40 

5751 : : > es & : : : THEN-CALL LOGIC TEST ERROR 
5752 : : os 4 : : ENDIF 

5753 : : TT : ENDIF 

5754 $ : = : ELSE-IF TRACK ADR=UNIT TRACK ADR 

5755 : : “ee SS : THEN-SETUP TRACK ADR ERR & CALL ERROR 
5756 : : a a : $ Ase ERROR CODE 

els : : :-s 3 : : THEN-CALL LOGIC TEST ERROR 
5759 : : , 228 : ENDIF 

5760 : : > ae ENDIF 

5761 : : : : ENDIF 

5762 3 : : DOUNTIL TRACKS cone FLAG SET OR ABORT FLAG SET 

5763 : : : SET TRACK INIT FLAG 

5764 : : IF TRACKS LEGAL FLA LAG SET 

5765 : : THEN- SET TRACKS ILLEGAL FLAG 

5766 : : ELSE-SET TRACKS LEGAL FLAG 

5767 : : : ENDI 

5768 3 3 DOUNTIL TRACKS LEGAL FLAG SET 

5769 3 ENDIF 

5770 3: ENDTST 

5771 : 

5772 ‘ BOARD CALLOUT: 

ar? 3 1. CONTROLLER 





op B 





SEQ 159 
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TEST 32 = TRACK ADR = TST 
5778 03300 TSETUP : 
| 03 012737 033336 002466 BGNT32: MOV #T32TBL,TSTID SETUP TEST ID TL=TESTS 32 
033010 032737 000001 002324 JAT32: BIT #LOGl CT.TSTMOD :IF TEST MODE=LOGIC TEST 
033016 001545 BEQ xT BIT THEN 
033020 004737 020736 CALL = LTSTUP [CALL LOGIC res! SETUP 
5779 033026 004737 017350 CALL DENCHK SCALL D ¥ CHECK 
5780 033030 004737 020472 CALL  SDENC CALL ofr TM OENSIT CONTROL=DENSITY STATUS 
5781 033034 012737 000401 002510 MOV BITKISTK, TKSCFG 3SET INITIALIZE é SEQUENCE TRACKS FLAG CTRACK/SECTOR FLAGS) 
5782 033042 000240 88132: NOP 
5783 033044 004737 012662 BCT32: CALL GETTRK SCALL GET TRACK ADR 
5784 033050 042737 000401 002510 BIC #ITK!STK, TKSCFG 3CLEAR INITIALIZE TRACKS FLAG 
5785 033056 004737 011062 CALL [CALL READ SECTOR 
5786 737 011340 CALL  RDERCD [CALL READ ERROR CODE 
5787 03 005737 002454 1DT32: TST FIN tI FINI FLAG 
5788 033072 001 BNE UCT32 [NOT SET, THEN 
5789 033074 123 002374 002446 IET32: CMPB TRACK, TTRK 31F TRACK ADR & TARGET TRACK 
5790 033102 001405 BEQ T T N 
5791 033104 012737 000041 002520 MOV ATRKAER, ERRNBR :SETUP ERR NBR=TRACK ADDRESS ERROR 
792 033112 004737 003060 CALL RROR ALL E 
579 033116 013705 002420 EET32: MOV DRVOFF RS set RS5=DRIVE igyTe OFFSET 
5794 033122 032737 010000 002476 IFT32: BIT MILLGAL,FLAGST :IF ILLEGAL F 
5795 033130 001024 BNE T [NOT SET, THEN” 
5796 033132 123765 002374 002444 IGT32: CMPB TRACK CTKOCRS) IF tIF TRACK ADR & CURRENT TRACK OF SELECTED DRV (RS) 
5797 033140 001406 BEQ IHT T EQUAL, THEN 
5798 033142 012737 000041 002520 MOV #TRKAER,ERRNBR SETS ERR NBR=TRACK ADDRESS ERROR 
2000 EE tel ” ore . er Tse Re tO DOUNTIL *c° 
5801 O33186 122737 000040 002442 IHT32: CMPB ##40,XERUUT TIF ERR CODE 
5802 033164 001025 BNE ucT$2 :SET=40 
5803 033166 012737 000021 002520 MOV WRECERR,ERRNBR :S UP ERRNGR=READ ERR CODE-ERR WRG 
5804 033174 004737 003060 CALL ERROR : UP ERROR 
5805 03 000417 BR UCT32 [BR TO DOUNTIL °C° 
5806 033202 123765 002374 002444 11732: CMPB TRACK.CTKO(RS) :1F TRACK ADR & CURRENT TRACK OF SELECTED DRV (RS) 
5807 033210 001004 BNE J QUAL, THEN 
5808 033212 012737 000041 002520 MOV #TRKAER,ERRNBR SETUP’ ERR NBR= TRACK ADR ERROR 
033220 000407 BR T ‘BR TO DOUNTIL 'C° 
5810 033222 122737 000040 002442 1/132: CMPB  #40,XERUUT SIF ERR CODE NOT 
5811 033230 001403 BEQ UCT zSET =6 
5812 033232 012737 000021 002520 MOV WRECERR,ERRNBR :SETUP ERR NBR=READ ERR CODE-ERR WRG 
5813 033240 005737 002454 UCT32: TST FIN ;DOUNTIL FINI FLAG 
5814 033244 001004 BNE ECT32 OR 
5815 033246 032737 001000 002476 BIT HTRKDON,FLAGST TRACKS DONE FLAG 
5816 033254 001673 BEQ C132 SET 
5817 033256 042737 001000 002476 ECT32: BIC ATRKDON,FLAGST :CLEAR TRACKS DONE FLAG 
5818 033264 005037 002510 CLR TKSCFG CLR TRACK FLAGS 
5819 033270 052737 002516 BIS MILTK,TKSCFG SETUP ILLEGAL TRACKS FLAG 
5820 033276 032737 010000 002476 IkT132: BIT #ILLGAL,FLAGST IF TLL EGAL F LAG 
5821 033304 001004 BNE LKT TS HEN 
3822 033306 052737 010000 002476 BIS #ILLGAL FLAGST SET iLLeaL FLAG 
5823 033314 000403 BR UBT 32 :BR TO DOUNTIL ° 
5824 033316 042737 010000 002476 LKkT32: BIC MILLGAL,FLAGST :CLEAR ILLEGAL FLAG 
5825 033324 032737 010000 002476 UBT32: BIT #ILLGAL.FLAGST :DOUNTIL ILLEGAL FLAG CLEAR 
5826 0333 XT32:_ EXIT TST 
5827 033336 REGTBL 
5828 033336 TTBL = 00 
033336 032754 T32TBL: .WORD T32MSG 
033340 000000 “WORD 0 





E 13 
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ns TESTS MACRO M200, ete 16:33 PAGE 221-1 
TEST 32 = TRACK ADR = LGC T 


033 enone -WORD 0 

O33 1 «WORD 1 

0 T32RTB: 

0 177777 «WORD -1 
5829 0 FRUTBL CTLONL 

033350 T32F TB: 

033350 006654 «WORD CTLONL 

033352 177777 -WORD 
5830 033354 ENDTST 
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hood 33 - 


5833 


033 
033 


356 000417 


360 


040 


122 


READ SECTOR=PRT:2 = LGC TST 


105 


.SSTTL TEST 33 = READ SECTOR-PRT:2 = LGC TST 
T -BR TO BGN TST 
T33MSG: “ASCIZ / READ SECTOR-PRT:2 = LGC TST/ 


"Test TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES & RETURN A VALID ERROR CODE. SIMILAR TO 
READ SECTOR PRT:1, BUT WITH DISKETTE IN OPPOSITE DENSITY. 





TST 
LOGIC TEST 


CAL NSITY CK 
SET DENSITY CONTROL=DISK DEN 
$ CALL READ SECTOR 
$ cmt READ ERROR CODE 
: IF COMM. inne 
$ THEN-CALL ERROR C 
: CAL COMPLIMENT DENSITY 
: CALL READ SECTOR 


F COMMAND ERRORS 
oe ERROR CK 


ENDIF 
ENDTST 


BOARD CALLOUT: 
1. CONTROLLER 
2. R/W ELECTRONICS 


FSS CSA CHS SS SSS STS OS See oP TH OSC SSH See Se See ease ees Sw 











Be Se Se Se Se Ge G+ Se Se Se Se Se Se Se Se Ge Ge Se Se Ge Se Se Se vot (lips 


a 


SEG 161 
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T 33 - 


eco 
FESE 
ERR 


5871 0 


Perens 


eE 
RS 


z 


w 
oooooeo So 
WWWWWWNWAANAAA 


& 
3 
S 


4 
nary 
oo 
WW 
WANA WWW 
MMMM 


a 
rar 
SEE KERSES 


Vw 


5885 
5886 033554 


" Smammmeeremerearnarereaaeaarneeraceceaeaic aaa aaa ea Ce  anen —— 


033534 
00000 


020 
017350 
0204 


READ SECTOR-PRT:2 = LGC T 


ooesee 


TSE TUP 
BGNT33: MOV #T33TBL,TSTID 
1AT33: BIT #LOGICT, TSTMOD 
BEQ xT 
CALL LTSTuP 
CALL DENCHK 
CALL SDENC 
CALL READ 
CALL RDERCD 
ESCAPE TST 
CALL ERRCHK 
CALL CDENC 
BIS @NEGTST,FLAGST 
MOV #DENERR ,NGTSER 
CALL RE 
CALL RDERCD 
ESCAPE TST 
CALL ERRCHK 
xT33: EXIT TST 
REGTBL CSESAL 
TTBL REGCK,0 
T33TBL: 
T33RTB: 
FRUTBL CTLRWE 
T33F TB: 
ENDTST 
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sSETUP TEST ID TEL<-TEST# 33 
cIF rest MODE=LOGIC TEST 


THEN 
CALL “tog TEST SETUP 
SCALL L SET Density CONTROL=DENSITY STATUS 


RROR 
L_ COMPLIMENT ‘yee ly CONTROL 
3SET Ho thy TEST FLAG 


sSETUP NEGTEST SET ERRORSDEW ERROR 
CALL READ SECT 
sCALL READ ERROR CODE 
F NO COMMAND Rags. THEN 
SCALL ERROR CHECK 
REGS1=CSESAL 
-WORD T33MSG 
-WORD REGCK 
-WORD 0 
-WORD 1 
-WORD REGS1 
-WORD  -1 
-WORD CTLRWE 
«WORD -1 


H 13 

SEC 163 
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‘TEST 34 = WRITE SECTOR-PRT:2 = LGC T 


-SBTTL TEST 34 = WRITE SECTGR-PRT:2 = LGC TST 




















033556 000417 BR BGNT 34 -BR TO BGN TST 
033560 040 127 122 T346MSG: ASCIZ / WRITE SECTOR-PRT:2 = LGC TST/ 
2894 
2832 : "Tes ST TOVERIFY THAT TYE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
589 : BOTH DENSITIES & RETURN A VALID ERROR CODE, SIMILAR TO WRiTE 
5894 ; SECTOR PRT:1, BUT WITH DISKETTE IN OPPOSITE DENSITY. 
5896 : BGNTST 
5897 : IF LOGIC TEST 
5898 : : TWER=SETUP TEST IDENT 
5899 : : L DEVICE DENSITY CHECK 
5900 : seye DENSITY CONTROL=DISK DEN 
5901 : CALL WRITE SECTOR 
3902 : : I COMMAND ERROR (ESCAPE TEST) 
590 : : : THEN-CALL ERROR CHEC 
5904 : : : CALL COMPLIMENT DENSITY CONTROL 
5905 : : : CALL WRITE SECTOR 
5906 : : : IF NO COMMAND ERROR (ESCAPE TEST) 
5907 : : : : THEN-CALL ERROR CHECK 
5908 : : ENDIF 
5909 : : NOP 
5910 : : ENDIF 
5911 : : NOP 
591 : ENDIF 
591 + ENDTST 
5915 > BOARD CAL 
5916 : 1. CONTROLLER 
5917 : 2. R/W ELECTRONICS 
5919 per 


! 
i 
| 
' 





34 = WRITE SECTOR-PRT:2 = LGC 


5923 033616 


RRR 


5938 033730 
5939 tee! 


5942 033750 
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TEST TST 


TSETUP 
033730 002466 BGNT34: MOV 
000001 002324 IAT34: B17 
020736 CALL 
017350 CALL 
020472 CALL 
010744 CALL 

ESCAPE 

017724 CALL 
020430 CALL 
004000 002476 BIS 
000030 002464 MOV 
010744 CALL 
011340 CALL 
017724 CALL 
XT34: EXIT 

REGTBL 

TTBL 

FRUTBL 


ENDTST 


#T34TBL,TSTID 
~~ 


x 

LTSTUP 

DENCHK 

SDENC 

TST 

ERRCHK 

CDENC 
#NEGTST,FLAGST 
#DENERR ,NGTSER 
WRITE 

RDERCD 

TST 

ERRCHK 

TST 

CSESAL 


REGCK,0 
T34TBL: 


T34RTB: 


CTLRWE 
T34F TB: 
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sSETUP TEST ID TBL<TEST# 34 
tT yt MODE=LOGIC TEST 


IT SET, THEN 
CALL LOGIC TEST SETUP 


sCALL DENSITY CHECK 
3 CALL rn DENSITY CONTROL=DENSITY STATUS 
ITE SECTOR 


2 CALL 
F Wi ERROR, THEN 
SCALL ERROR CHEC 
[CALL_ COMPLIMENT yee AY CONTROL 
ZSET FLAGST-NEG TEST FLAG 
3 SETUP =“ TEST ERR ERR DENSITY ERR 


sCALL WRIT 

SCALL READ ERROR CODE 
:1F NO COMMAND ERROR 
CALL ERROR CHECK 


REGS1=CSESAL 
-WORD 1T34MSG 
eWORD REGCK 
-WORD 0 
eWORD -1 
-WORD R€GS1 
«WORD =i 
-WORD CTLRWE 
eWORD = 


Oe ee er ee ae yee 
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TEST 35 = DELETSD DATA WRITE PRT:2 - LGC 


SEG 165 





-SBTTL TEST 35 = BGNe SS ETED DATA WRITE PRT:2 To TST 


5 
033752 000422 BR -BR TO BGN T 
033754 040 104 1s ssnsce Reerz SOLE oata wife att lec rs 











5947 i+t 

5948 3; TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
5949 ; HEADER AND RETRIEVE THIS so9 & ON A KNOWN GOOD DISKETTE. THIS IS DONE 
ege0 3: IN OPPOSITE DENSITY OF TEST 1 

5952 3; BGNTST 

5953 5 IF LOGIC TEST 

5954 : : THEN-SETUP TEST IDENT 

5955 3 : CALL DEVICE DENSITY CK 

5956 $ : SET DENSITY CONTROL=DENSITY STATUS 

5957 $ SET DELETED DATA FLAG (BIT#3-CMD) 

5958 3 CALL WRITE SECTOR 

5959 3 : IF NO COMMAND ERROR (ESCAPE TEST) 

5960 : : : THEN-CALL READ SECTOR 

5961 : : : IF NO COMMAND ERROR (ESCAPE TEST) 

5962 : : : : saat RXESR-DELETED DATA BIT NOT SET 

5963 3 : : THEN-SET ERROR NUMBER-DELETED DATA ERR 
5964 : : : ROR 

5965 : : : ENDIF 

5966 3 : ENDI 

5967 3 ENDIF 

5968 3 

5969 3; ENDTST 

5971 3; BOARD CALLOUT: 

5972 3 1. CONTROLLER 

5973 5 2. R/W ELECTRONICS 


5974 cane ee a NS SS SSS Ss SETH SPSS SSB BSe Teo sve eee a» Se SSeS Se SO Ce PS SSS es eS Smee 


5975 - 





—————— 
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TEST 35 = DELETED DATA WRITE PRT: 

5979 034020 TSETUP 
Oise 012737 034150 0024 BGNT35: MOV 
034026 032757 000001 002324 IAT35: BIT 
034034 001443 BEQ 
031078 004737 020736 CALL 
034042 004737 017350 CALL 

1 034046 004737 020472 CALL 

5982 034052 012737 000010 002402 MOV 

3 034060 004737 010744 CALL 

5984 034064 004737 011340 CALL 

5985 034070 18T35: ESCAPE 

5986 034074 004737 017724 CALL 

5987 034100 004737 011062 CALL 
034104 ICT35: ESCAPE 

5989 034110 032777 000100 146234 IDT35: BIT 
034116 1 BNE 

5991 034120 012737 000032 002520 MOV 

5992 034126 737 003060 CALL 

5993 034132 000404 BR 

5 034134 005037 002402 LDT35: CLR 

5995 034140 004737 010744 CALL 

5996 034144 XT35: EXIT 

5997 034150 REGTBL 

015036 

5998 034150 TTBL 
034150 033754 
034152 000001 
034154 000000 
034156 177777 
034160 
0341 015036 
034162 177777 

5999 034164 FRUTBL 
034164 
034164 006651 
034166 177777 

6000 

6001 034170 ENDTST 


#T3S5TBL,TSTID 
+ - eeaeedatenell- 


SDENC 

#DLDCMD ,DELDAT 

WRITE 

RDERCD 

TST 

ERRCHK 

READ 

TST 

UOT cwewpe 2 

#DLDOTER, ERRNBR 

ERROR 

xT35 

DELDAT 

WRITE 

TST 

CSESAL 

REGCK,0 
T35TBL: 


T35RTB: 


CTLRWE 
T35F TB: 
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sSETUP TEST ID TBL<-TEST# 35 
31F a MODE=LOGIC TEST 
; Logie TEST SETUP 
CALL DEVICE ppl CHECK 
ET gti eee STATUS 
3SET DELETED DATA FLAG 
CALL WRITE SEC TOR’ 
CALL L READ ERROR CODE 
IF COMMAND ERROR, THEN 
CALL ERROR CHECK 
7CALL_READ SECTOR 
IF NO COMMAND ERROR, THEN 
31 ae an DATA BIT 
UP ERROR NUMBER=DELETED DATA ERROR 
vente 
TBR TO EXIT 


TST 
CLEAR DELETED DATA MODE 
CALL WRITE SECTOR = CLR DEL DAT FIELD 


REGS1=CSESAL 


-WORD T35MSG 
WORD REGCK 
WORD 0 
-WORD -1 
WORD REGS1 
WORD =1 
WORD CTLRWE 
«WORD -1 


-—_—— -—-— - -—- 


6004 
034172 000¢3 


33 


a os SY SH 


Saecesree seuss 


6021 
2 


~- DISKETTE & DENSITY DATA CHECK = 


gegoage TESTS MACRO M1200 14-DEC-82 16:33 wat 231 


LGc T 


-SBTTL TEST 36 - 


L 13 


DISKETTE & DENSITY DATA se - LGC TST 


:6R TO BGN T 
034174 104 111 T36MSG: wy / DISKETTE & DENSITY DATA CHECK ~ LGC TST/ 


SSS TSS SS OST eS See TSE sae SWOT BDHOT See wDEMSOES Bees ee a ec 


p++ 
3 Hs y TO VERIFY WITH A KNOWN GOOD DISKETTE THAT THE DEVICE WILL READ 


ng TO THE DISKETTE WITHOUT DATA ERRORS. BOTH DENSITIES WILL 


BGNTST 
IF 


ENDIF 


ENDTST 





LOGIC TES 
THEN=SETUP TEST IDENT 
CALL DENSITY CHECK 
CALL he bo Fe DENSITY CONTROL=DENSITY STATUS 


NO 

SET DATA PATTERN=RANDOM 

CALL_DATA PATTERN GENERATOR 

SET TRACK & SECTOR INITIALIZE FLAG 
«I & SECTOR=SEQUENCE MODE 


N 
CALL GET y eree & GET SECTOR 


SEC TOR 
SETUP TO CLEAR RX INTERNAL BUFFER 
CALL FILL Wy eee INTERNAL BUFFER 


ER 
|S eadimcs DATA ANYLSIS ERROR 


: ENDI 
DOUNTIL TRACK & SECTOR DONE OR DATA ERRORS=10 
CALL CHANGE DENSITY 
SET DENSITY CONTEOL SBENSETY STATUS 
INCREMENT DO FLA 
DOUNTIL DO FLAG=2 OR ABORT FLAG SET 


BOARD FALLOUT: 
ONTROLLER 
R/W ELECTRONICS 


Q° 


eee ee ee ee 


SEG 167 


M13 
SEQ 168 
Say TESTS MACRO M1200 14-DEC-82 16:33 net 233 
= DISKETTE & DENSITY DATA CHECK = LGC T 


Sa 
we 
ios 


$032 034246 TSETUP 
034246 012737 034504 002466 BGNT36: MOV #T36TBL,TSTID 3 SETUP TEST ID TBL=TEST# 36 
034254 032737 000001 002324 IAT36: BIT MLOGICT.TSTMOD IF TEST MODE=LOGIC TEST 
034262 0015 BEQ XT 36 [BIT SET, THEN 
034264 004737 020736 CALL LTSTUP :CALL LOGIC TEST SETUP 
6053 034270 005037 002504 CLR TTEMP1 [CLEAR COUNTER (TEST TEMP #1) 
6054 034274 004737 017350 CALL  DENCHK [CALL DENSITY CHECK 
6055 034300 004737 020472 CALL  SDENC 3CALL SETUP DENSITY CONTROL=DENSITY STATUS 
6056 034304 005037 012660 BBT36: CLR PAT :SETUP DATA PATT TERN= N=RANDOM 
6057 034310 004737 012306 CALL § STDATP [CALL SET DATA PATTERN 
58 034314 052737 001400 002510 BIS MITKIISC,TKSCFG :SET TRACK & SECTOR INITIALIZE FLAGS 
6059 034322 052737 000003 002510 BIS #STKISSC.TKSCFG :SET TRACK & SECTOR SEQUENCE MODE FLAGS 
034330 737 012662 BCT36: CALL GETTRK SCALL GET TRACK 
6061 034334 004737 013104 CALL GETSEC ‘CALL GET TOR 
6062 034340 737 010510 CALL  FILBUF [CALL FULL BUFFER 
6063 034344 004737 01074 CALL ITE [CALL WRI 
6064 034350 004737 013642 CALL  CLRDAT :CALL CLEAR DATA BUFFER 
6065 034354 012737 036622 002362 MOV #DATBUF,FILADR :SETUP TO CLEAR RX INTERNAL BUFFER 
6066 034362 004737 010510 CALL - FILBUF [CLEAR THE BUFFER 
6067 034366 012737 036222 002362 MOV #DATPAT,FILADR :SETUP DATA BUFFER ADDRESS 
6068 034374 004737 011062 CALL READ [CALL SECTOR 
6069 034400 004737 010626 CALL [CALL EMPTY BUF FER 
6070 034404 004737 013246 CALL _DATACK [CALL DATA CHECK 
6071 034410 022737 000012 013520 uCT36: CMP #10. ,DAERCT :DOUNTIL DATA ERROR COUNT 
6072 034416 001410 BEQ ECT36 SEQUALS OR 
6073 034420 032737 001000 002476 BIT MTRKDON,FLAGST TRACKS DONE FLAG 
6074 034426 001740 BEQ T ZSET, AND 
6075 034430 032737 002000 002476 BIT #SECDON,FLAGST SECTORS DONE FLAG 
6076 034436 001734 BEQ BCT 36 SET 
6077 034440 004737 020430 ECT36: CALL  CDENC [CALL COMPLIMENT pENSITY CONTROL 
6078 034444 004737 011172 CALL  SETON SCALL SET DEN SITY 
6079 034450 005237 002504 INC TTEMP1 ‘INCREMENT COUNTER 
6080 034454 012737 000100 002370 MOV #64. ,WDCNT ‘SET WORD COUNT 
6081 034462 005737 002454 UBT36: TST FIN SDOUNTIL FIN FLAG 
6082 034466 001004 BNE X136 [SET OR 
6083 034470 022737 000002 002504 CMP #2, TTEMP1 [COUNT 
6084 034476 001302 BNE BBT36 SEAUALS 2 
6085 034500 X136: EXIT TST 
6087 034504 REGTBL CSESAL 
015036 REGS1=CSESAL 
6088 034504 -TTBL _—REGCK,0 
034504 034174 T36TBL: .WORD 136MSG 
034506 000001 "WORD REGCK 
034510 000000 “WORD 0 
034512 177777 “WORD 1 
034514 T36RTB: 
034514 015036 .WORD REGS1 
034516 177777 “WORD =1 
6089 034520 FRUTBL CTLRWE 
03452 T36F TB: 
034520 006651 .WORD CTLRWE 
034522 177777 “WORD =1 


6090 
6091 034524 ENDTST 
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HARDWARE TESTS MACRO M1200 14=DEC-82 16:33 ne 235 
TEST 36 = DISKETTE & DENSITY DATA CHECK = LGC T 


6099 034526 ENDMOD 
6100 


SEQ 169 













WAROWARE TESTS MACRO M1200. 14-DEC=B2 16:33 PAGE 236 
TEST 36 = DISKETTE & DENSITY DATA CHECK = LGC TST 


6103 -NLIST BEX,ME 


oi -TITLE PARAMETER CODING 

aut -SBTTL HARDWARE PARAMETER CODING SECTION 
6145 034526 BGNMOD 
Os 
614 3+¢ | 
6148 3 THE HARDWARE PARAMETER poems < SECTION CONTAINS MACROS 
6149 3: THAT ARE USED BY THE SUPERV TO BUILD P-TABLES. THE 
6150 3 MACROS ARE NOT EXECUTED AS VAACHINE INSTRUCTIONS BUT ARE 
6151 $ vob mtg ty BY THE SUPERVISOR AS DATA STRUCTURES. THE 
615. 3: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS : 


615 ; WITH THE OPERATOR. 
154 





PARAMETER CODING 
SOFTWARE PARAMETER CODING. SECT TON 


See5 


SERLERK 
wn-o 


Nt} 


aS 


se 
— 


SWHONmWREREREEE 
N=AN=55555555= 


oS 


-=30— 
SRARSSKER 


Sas 


R 
R 





14=DEC-82 16:33 PAGE 238 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


; THE SOFTWARE PARAMETER CODING SECTION ys MACROS 
THAT ARE USED BY 


THE SUPERVISOR TO BUILD ard ann gt THE 


ARE NOT y ere ~ MACHINE INSTRUCTIONS BUT ARE 


MACROS 
INTERPRE ra BY 
MACROS AL 


SUPERVISOR AS DATA STRUCTURES. THE 
ne ehagonesn TO ESTABLISH COMMUNICATIONS 


3 WITH THE OPERATOR 








BGNSFT 
GPRML SG6,2,1,YES 
XFERF 1$ 
GPRML HSG7.2.2. YES 
1$: GPRML MSG8.4,LOGICT, YES 
GPRML msc9 4. FUNCTT, YES 
GPRMD 616,6,.0 CTT YES 17777, YES 
GPRMA rscié 56°6 6.0 199975 VE 
GPRMD MSG15.26,0 030000 “OLS YES 
GPRML SG17.2,100, VES 
XFERF 
GPRML  SG20,12,20, 
6$: GPRML  MSG5,12,$ etpFLe. VES 
ENDSFT 
CR==15 ZCARRIAGE RETURN 
LF==12 “LINE FEED 
MSGS:  .ASCI2Z JEXPANS 10N WORD TYPE <CR> / 
MSG6: .ASCIZ /TEST HELP / 
MSG7: ASCII /DIAGNOSTIC MODES ARE : L<CR><LE> 
SASCII / LOGIC TEST, FUNCTI TEST. oP BOTH/<CR><LF> 
<ASCII / FUNCTION TESTS (1-10) /<Ch>< 
SASCII / ACT AS QUICK Ye SREPORT FAILING FUNCTIONS/<CR><LF> 
“ASCII / LOGIC TESTS CF Seyvecr 
SASCII / ANALYZE FAILURE & Give. ERROR pINFOL<CRD<LE> 
“ASCII / REPORT FIELD REPLACEABLE UNITS "FRU'S''/<CR><LF> 
SASCII / ~>DEVICE FATAL THRESHOLD LEVEL (DVTL) IS SET = 1/<CR><LF 
“ASCII / ag DVTIL™ = NO. OF HARD ERRS THAT CAUSE DEVICE FATAL ERRI<CR<LF> 
ASCIZ /TYPE “'CR’ TO CONTINUE/ 
~ASCIZ /LOGIC TEST MODE / 
“ASCIZ /FUNCTION TEST MODE/ 
MSG10: .ASCIZ /HARD ERR => pPEVICE FATAL THRESHOLD LVL/ 
MSG14: .ASCIZ /NON-EXISTANT MEM ADR (NXM TST)/ 
MSG15: .ASCIZ /EXTENDED ADR BITS: 13 & 12 (NPR-NXM TST)/ 
MSG17: .ASCIZ /TEST CONTROL FLA 
MSG20: .ASCIZ / PRINT ONLY 10 DATA ERRORS & CONTINUE / 


-EVEN 


SEQ 171 


| D 14 








SEQ 172 
[PARAMETER CODING MACRO_M1200 14-DEC-82 16:33 PAGE 240 
SOFTWARE PARAMETER CODING SECTION 
6249 
20 -SBTTL = RXO2 FILL BUFFER AREA 
5 ° 
6335 036222 000400 DATPAT: REPT 256. sDATA PATTERN = RXO2 FILL BUFFER 
o538 F 
6298 -SBTTL = X02 EMPTY BUFFER AREA 
6260 *eaeoeen 
6261 036622 000400 DATBUF: .REPT 256. :DATA BUFFER = RXO2 EMPTY BUFFER 
6264 037222 000000 ~WORD 0 
6265 037226 000000 -WORD 0 
6273 “SBTTL = PATCH AREA 
6275 037226 000000 PATCH: 0 :PATCH AREA 
6276 037630 -=.%400 
6278 037630 ; LASTAD 
037634 LSLAST:: 
6279 037634 E 
6281 037634 BGNSETUP 2 
6282 037634 T 
6283 037640 177170 177170 
037642 000264 64 
85 037644 000000 
037646 0 
6287 037650 000005 5 
037652 ENDPTAB 
6289 037652 BGNPT 
6290 037656 177170 177170 
6291 037660 264 
6292 037662 1 
6293 037664 0 
629% 037666 000005 5 
6295 037670 ENDPTAB 
6296 037670 ENDSETUP 
6297 000001 END 


| 
| 
| 
| 
| 
| 





SEG 173 
| PARAMETER CODING MACRO M1200 14-DEC-82 16:33 PAGE 240-1 
ae: TABLE 
‘ABORT 002452 BGNT3S 034020 CMDERR= 000020 CSESCA= 000010 SP= 0000 
ACLOW = 000010 BGNT 034246 CMOMSG our igs CSESEG= 000005 DLOBIT= 000100 
ACLOWD= 000037 BGNT4 ose! C 007237 CSESUB= 3 DCMD= 000010 
ACLOWF= 000050 BGNTS 1 CMDM1 8 007255 CSETST= 1 DLDERR= 000007 
= 000020 G ponte 32 C 007274 CSEXIT= 0000 DLDTER= 000032 
ADRTST 022066 BGNT 023414 C 007313 C$GETB= pootes DLPDN = 000010 
0077 BGNTS 023664 C 007331 CSGETW= 00002 DLY 012026 
ADTKMS 010257 BGNTS 0 1038 CMDMS § 007347 CSGMAN= 000043 DMSGT 013561 
AL = BITCNT 01467 C 007374 CSGPHR= 000042 DMSGIB 013526 
ASSEMB= 000010 BITLIM 014674 CMDM7 007430 CS$GPLO= 000030 DMSG2 601 
AWON 012032 BITOFF 014676 007452 CS$GPRI= 000040 DNBIT = 000040 
AWTR 012110 BITO = 000001 G CMDPE 7502 CSINIT= 000011 DNFLAG 012030 
BACOB 3 013652 1T00 = 000001 G CMERMS 7216 CSINLP= 000020 DNNINT= 000015 
BADCK 013276 B1T01 = 000002 G CMFTMS 00 CSMANI= 000050 DNNOTR= 
014702 BITO2 = 000004 G 700 CSMEM = 000031 002474 
011700 BITOS = 000010 G CONTRL= CSMSG = 000023 
BBT10 §8024314 BITO4 = 000020 G CONTSW= 000022 CSOPEN= 000034 DRIVE 002406 
BBT21 027600 BITOS = 000040 G 15 G CSPNTB= 000014 DRIVET= 000400 
BBT23 030336 B1T06 = 000100 G CERB= 000001 CSPNTF= 000017 DRVDEN= 0 
BBT24 030546 B1T07 = 000200 G CRCERR= 000004 CSPNTS= 000016 DRVOFF 002420 
BBT27 031400 B81T08 = 000400 G CSERTB 014776 CSPNTX= 000015 DRVPRT 002514 
BBT31 032474 BITO9 = 001000 G SESAL= 015036 C$QI0 = 000377 DRVRDY= 000200 
BBT32 033042 BIT1 = 000002 G CSESIT= 015056 SRDBU= 000007 DRVWRG= 000027 
BBT36 034304 B1T10 = 002000 G SESND= 01507 000047 
T7 023460 BIT11 = 004000 G CSESRS= 01 CSRESE= 000033 DUMSG1 022012 
BCGSC 013202 ons = 010000 G SONLY= 015026 SREVI= 000003 DVDNCK 011634 
033044 BIT13 = 020000 G CSRC 13750 CSRFLA= std DVF 
T 034330 BIT14 = 040000 & CSRCMP 014260 CSRPT = 5 D E 
BET31 032642 IT15 = 100000 G ERR= 000033 CSSEFG= 000046 DVRYCK 01 
022364 IT2 = 000004 G £ 014262 CSSPRI= 000041 DVSTCK 017140 
BGNTIO 024254 BITS = 000010 G CSRSET 014270 CSSVEC= 37 DVTL 00 
BGNT11 024412 IT4 = 000020 G TKO = «= 002444 CSTPRI= 000013 Dx 012024 
BGNT12 024650 BITS = 000040 G cTK1 002445 DAERCT 013520 EADDC 017514 
BGNT13 025074 atte = 000100 G CTLINF= 006646 DATABF= 55 EADRC 01 
BGNT14 025316 BIT? = 000200 G CTLONL= 006654 DATACK 013246 EADSC 017220 
BGNT1S5 025546 BITS = 000400 G CTLRWE= 006651 DATASB 013522 EAERR 003256 
BGNT16 025662 BIT9 = 001000 G $AU_ = 000052 DATAWS aE SESS EAFRU 005506 
BGNT17 026276 = 000400 G CSAUTO= 000061 DATAO o1S¢ EANAT 027076 
BGNTI8 026452 BRONPT 012372 SBRK = 000022 DATAT 0124 EAPCE 007106 
BGNTI9 027146 BIRK 002451 CSBSEG= 000004 DATBUF Baebes EARCR 014240 
BGNT 8 UB= 00000 DATBYT 012656 EASRC 1 
2 CSCEFG= 00004 DATCK = EATKE 017712 
CLCK= DATER = EBCMD = 
CSCLEA= 00001 DATPAT 036222 EBDCK 013470 
CSCLOS= 00003 RR= EBDDC 9 017434 
CSCLP1= 000006 DCFLG= 000002 EBGEN 015152 
CSCVEC= 000036 DELDAT 002402 EBGTK 013062 
N= 000044 NBIT= 000400 E811 021720 
51 DENCHK 017350 EBNAT 027030 
CSDRPT= 000024 NDSK= 0000. EBRCR 013716 
C = 5 DENERR= 0000 EBTKP 0 
Ts NMIX= 000031 EBT11 §= 0245 
CSERDF= 00005 DENSTA 414 EBT1 024744 
= DENSTY 412 EBT 025176 
CSERRO= PTBL 76 G EBT18 026530 
CSERSF= 0000 EB 


= 131 
CSERSO= 000057 DISKET= 000014 ECERNB 020164 





SEQ 174 
‘PARAMETER CODING MACRO M1200 14-DEC-82 16:33 PAGE 240-2 
‘SYMBOL TABLE 
‘ECERNT 0151 END131 012612 ERRNST= 000016 FSDU = 000016 IAGEN 015110 
ECERR 0032 EPECK 020140 ERROLD 003340 FSEND = 000041 IAGS< 013106 
ECNAT 027076 ERIDNT 003502 G ER FSHARD= 000004 IAGTK 012664 
‘ECSTA 015330 ERMSTB 003534 ERRREG 015444 SHU = 13 IA11 021622 
‘ECTAB «01 ERMSO 003706 ERRSAV 003336 FSINIT= IANAT 026776 
/ECTI8 §=— 026676 ERMS10 004015 ERRTYP 002516 G FSJMP = 900050 IAPCE 0070 
'ECT21 027 ERMS11 004035 ERTKMS 910241 FSMOD = CR 013672 
-ECT32 033256 ERMSi¢ 004056 ESERTB 014 46 FSMSG = 000011 IASCP 007676 
/ECT36 «= 034 13 004112 ESRCHK 01411 FSPROT= 000021 IASDC 020500 
/ECO 016116 ERMS14 00414 ESRCMP 014264 FSPWR = 000017 C 014 
EC 016136 ERMS15 0041 ES 014266 FSRPT = 000012 IASTA 015334 
'EC11»«=—-:016407 ERMS16 004226 ESRSET 014272 FSSEG = 000003 IATKE 017520 
EC12 016451 ERMS17 004264 EVL = G FSSOFT= 000005 IATKP 010006 
\EC13. =: 016477 ERMS19 0043146 EXMS 010156 FSSRV = 000010 IAT] 022372 
/EC14 =: 0016550 ERMS2 003717 EXTADR 002366 F$SUB = 00000 IAT10 024262 
1EC1S 016567 ERMS20 004333 ESEND = 002100 $Su = 000014 IATI1 
(ECI6 §=—-016640 RMS21 004356 ESLOAD= 000035 FSTEST= 000001 IAT12 024656 
'EC17?,——s-: 016670 ERMS22 004402 FBCMD = 000000 REG 012244 IAT13. 025102 
\EC2 016175 E 34 FILADR 002362 GETSEC 013104 IAT14 
iEC20 ©=-: 016716 ERMS24 004467 FILBUF 010510 012662 IAT15 025554 
EC22 016753 ERMS25 004503 FILERR= 000012 GTECEN 015106 IAT16 025670 
EC23. = 017013 ERMS26 004532 FIN 002454 017106 IAT17 026 
EC24 017033 ERMS27 004553 LAGSP 002500 000200 IAT18 026460 
EC25 017052 ERMS28 004564 FLAGST 002476 SDELM= 000372 IAT19 0271 
EC4 016234 ERMS29 004575 FLGDRS 002502 000003 022522 
ECS 01627 ERMS3 003731 FLOATO 012456 GSEXCP= 000400 AT 2737 
EC7 016337 ERMS30 904 5 FLOAT1 0125 4 GSHILI= 900002 1ATeI 027542 
EDECK 020122 ERMS31 655 FONZFG= 01 GSLOLI AT¢ 030174 
EDGSC 013236 ERMS32 004670 F 005713 = 000000 IAT23 030314 
EDSRC 014462 ERMS33 004711 FRUMOB 005746 = 000400 IAT24 030516 
EDT18 026722 ERMS34 004733 F 005650 GSOFSI= 000376 IAT25 030770 
EDT21 027662 ERMS4 003742 FRUM1 006001 000001 IAT26 © 031146 
EEECK 020072 ERMS4O 004756 FRUM10 006361 GSPRMD= 000002 IAT2? 031340 
EEFRU 00 ERMS41 777 FRUM11 006426 = 000000 IAT28 031536 
EESRC 014516 ERMS42 005027 FRUMI2 006451 GSRADA= 000140 IAT29 031740 
EET32 033116 ERMS43 005054 FRUM13 006504 GSRADB= 000000 IAT3 022656 
EFENV 00 ERMS44 00510 FRUM14 006544 GSRADD= 000040 IAT30 032140 
EFERR 003330 ERMS45 00512 RUNG 006035 GSRADL= 000120 IAT31 
EFFRU 005576 ERMS4G 005153 F 006070 GSRADO= 000020 AT32 033010 
EFT31 032716 ERMS47 005202 FRUM4 006120 = 000004 IAT33 «033426 
EF .CON= 000036 G ERMS48 005230 FRUMS 006140 SYES = 000010 AT34 03362. 
EF .NEW= 000035 G ERMS49 005260 FRUM6 006173 HDRPRT= 000100 IAT35 034026 
F.PwR= 000034 G ERMSS 003752 FRUM7 006221 HDSFDG= 000056 IAT36 «(0342 
EF .RES= 000037 G ERMS5O 005307 FRUMS 906255 iP = ATé 22 
EF .STA= 000040 G ERMS51 005337 FRUMD 006 HETLCT 00347 IATS 023110 
FRU 005554 ERMS6 003763 FRUS1 = 000000 =1 IAT6 
E 014330 ERMS7 003774 FRUTAD 005610 HRDERR= 040000 17 023422 
EIECK 020070 v 003 FRUTBM 005612 DC 020432 IATS 023672 
EMBUF F = 20 ERNTCK 020170 FTERCT 014274 IADDC 017402 IAT9 —- 024044 
EMDCK 013444 ERRBIT= FTSTUP 020700 IADID 02061 IBDCK 013312 
2360 ER 526 G FUNCT = 000000 IADRC 01731 IBDDC 017410 
010626 ERRCHK 017724 FUNCTT= 000002 IADSC 017144 IBDSC 017152 
EMPERR= ERRCMD 2 FUNTST= 00004 AE CK 017726 IBE = 010000 G 
ENDCK 013434 ERRCTR 00334 FSAU = 1 IAE 201 IBECK 017742 
ENDDCK 0135 ERRFLG= 100000 FSAUTO= 20 IAENV 003346 IBEMB «(OT 
ENDLD 01265 ERRMSG 002522 G FSBGN = 0 IAERR 003154 IBENC 020204 
ENDXER 016012 ERRNBR 002520 G FSCLEA= 000007 IAFRU 005406 IBENV 003 
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SEG 175 
MACRO M1200 14=-DEC-82 16:33 PAGE 240-3 
ID 002336 G 1JT32 033222 BDDC § 017430 LSEXP4 002064 G 
IDCOMP 0 5 IKERR 4 60 LBFRU 5456 LSEXPS 002066 G 
IDDDC_ =: 0173 IKT32 033276 LBGEN 15134 LSHARD 034530 G 
10D $ ILERR 003274 LOGTK 13006 LSHIME 002120 G 
IDECK $ ILLERC= 000017 L811 021704 LSHPCP 002016 G 
IDENC, 020226 ILLGAL= 010000 LBNAT 027022 LSHPTP 002022 G 
IDENT? 015446 ILTK LBTKP 010056 L$HW =: 002276 G 
IDENV 3404 IMDCK 013352 L H 011740 LSICP_ 002104 G 
IDERR 003242 IMECK 020074 LC 002424 LSINIT 021214 G 
IDGSC 013224 INDCK 01340 LCSTA 015314 LSLADP 002026 G 
IDSRC 34646 INECK 01775 LCT24 030634 LSLAST 037634 G 
IDSSMS 020657 = 0 LCT. 032042 LSL 2100 G 
IDTKE 017556 INIT 021214 LDT11 }§=©024474 LSLUN 002074 G 
10T11 4 LDT31 5 LSMREV 002050 G 
IDT14 025376 1462 LDT35 L G 
I0T16 §=©026050 INITTK 013102 LETI4 025446 LSPRIO 26 
IDT18 026700 = LET21 LSPROT 002310 G 
IDT24 INTERT 002404 LEUWCH 01 002112 G 
+434 032016 INTERT 021530 LF = 000012 G LSREPP 002062 G 
IDT31 032516 TF 24 LFFRU 55 LSREV 2010 G 
IDT32 033066 LGFRU 005550 LSRPT 021212 G 
IDT35 034110 INTIAL 010440 LGT31 ©032712 LSSOFT 034700 G 
IDU = 000040 G N LKERR 003312 LS$SPC_ 002056 G 
IEDCK 013322 LKT32  ©=—- 0033316 LSSPCP G 
IEERR 31 INTRHD 012276 LMECK 020114 LSSPTP 002024 G 
IER = 020000 G INTTBL 021742 012614 L$STA 0020350 G 
IESRC 14466 IOECK On 77$e LOE = 464 G L$Sw Bos aee G 
IETKE 17566 IPECK 20124 LOGICT= 1 LSTEST 002114 G 
IETI14 §=©025422 Is¢ = 001000 LOT = 0000 LSTIML 002014 G 
iete) 027706 ISR = 000100 G LRXCSR 002426 SUNIT 26 
IET 033074 IT™K = 000400 LRXE 0024 L 002310 
IEUWCH 011752 IXE = 004000 G LSIFLG= 000400 L Song 002350 
IFOCK 013332 ISAU_ = 000041 LTSTUP 020736 L10005 002532 
IFENV 0034 ISAUTO= 000041 LSACP 2110 G L 002540 
IFERR 003062 ISCLN = 000041 LSAPT 002036 G L10005 Oo 246 
IFFRU 005524 ISdDU_ = 000041 SAU_ 022062 G 1 003532 
014346 ISHRD = 000041 LSAUT 2070 G £10007 021212 
IFTKE 017612 ISINIT= 000041 LSAUTO 022054 G L10010 021522 
IFT21 027714 ISMOD = 000041 LSCCP 002106 G L10011 021774 
IFT31 032652 ISMSG = 000041 LSCLEA 021764 G et dt 022010 
IFT32 033122 ISPROT= 000040 L$CO_ =._—« 0.02032 G L10013 022060 
NV 00 ISPTAB= 000041 LSDEPO 002011 G L10014 022064 
IGERR 003200 ISPWR = 000041 LSDESC 002122 G L10015 022454 
IGFRU 005532 ISRPT = 000041 LSDESP 002076 G L10016 022614 
C 014304 ISSEG = 000041 LSDEVP 002060 G L10017 022730 
IGTKE 017622 ISSETU= 000041 LSDISP 002164 G L10020 023046 
IGT21 027724 ISSFT = 000041 LY BeSas6 G 110021 Stat 
1GT31 032660 ISSRV = 000041 L$DTP_ 002040 G Lines 023350 
IGT 033132 ISSUB = 000041 LSDTYP 002034 G L100235 023612 
sMENV 003444 ISTST = 000041 L$DU oe 5ne8 G L10024 024002 
IHTKE 017654 JSJMP = 000167 L$DUT 002072 G L10025 024220 
IHT32 4 ©933156 LACDC 020454 LSDVTY 002154 G L100. $ 024 
IIECK 020956 LAI1 021644 LSEF 002052 G L10027 024620 
IIER 0031¢4 LANAT 027036 LSENVI 002044 G L10050 025030 
I1Tk 017662 LAPCE 007076 LSERRT 8 748 G L10031 025260 
1113 033202 LASDC 020524 LSETP 102 G L100 025500 
IJERR 003114 LATKP 010130 LSEXP1 002046 G L10033 025630 
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SEQ 176 
|PARAMETER CODING MACRO M1200 14-DEC-82 16:33 PAGE 240-4 
Bed TABLE 
L10034 026232 NOTRBT= 000057 PRTREG 007564 RXPRI 002356 TRKAER= 000041 
'L10035 026426 NPRERR= 000053 PRTSEC 007674 RX2BIT= 004000 TRKCNT 013100 
L10036 026772 NPRIPR= 000020 PRISTA 015240 SCPRT = 2 TRKDON= 001000 
L1003 NXMADR 002344 G PRTTRK 010002 SDCMD = 000010 SE 330 6 
030124 NXMERR= 000052 PRIXIS 0027 SDKYwD= TSAVE1 002506 
10042 030 OD 4 2334 G PRTX2S 002756 SDRDYE= 000024 TSDGMS 020306 
L10043 030446 ODCCMP 013032 TX3S 003002 ECAER= S 
L ODTNOT= 000001 PRTX4S 003030 SECD 2 C 00 
£10045 031076 ONEF IL= 000000 PTERTY 003474 SECTOR 002376 TSTDBG 020240 
L 031276 OSAPTS= 000000 PTUTMS 020560 KE TSTID 
L10047 031466 OSAU = 000001 026175 SETDCD 0114 TSTMOD 002324 G 
L10050 031662 OSBGNR= 000000 026122 SETDN 011172 TSTPAT 002326 G 
L10051 032076 OSBGNS= 000001 026214 SETSCD 01150 TTEMP1 002504 
L10052 032376 O$DU = 000001 RANDAT 012566 SETUP 021 TTRK 002446 
L10053 032750 OSERRT= 000001 RANGEN 010344 SFPTBL 002320 G TYPE 2 
1 033356 OSGNSW= 000001 010436 SFTSTS 002450 TSARGC= 
L10055 033554 OSPOIN= 000001 RANT 010432 IDE 002410 TSCODE= 005130 
56 033750 OSSETU= 1 010434 SIDE1 = 001000 SER 4 
110057 034170 PAT 012660 RDERCD 011340 SIDFLG= 010000 TSEXCP= 000000 
£10060 034524 PATCH 037226 RDERR = 000003 SIDPRT 002515 TSFL 
10061 034606 PATI25 012532 RDSTAT 011266 SIDRDY= 000002 TSFREE= 037670 
10062 03501 PAT333 012556 READ 011 SI 26 T 
L10063 037640 PG 4 EAD1 011112 ssc = 2 TSHILI= 000003 
L 037656 v EC 2364 STAFL TSLAST= 000001 
110065 037652 PLOC 021524 RECCMD= 000016 START 021252 TSLOLI= 
10067 037670 = 001000 6 RECERN 002462 STARTO 021262 TSLSYM= 010000 
MINSEC 002340 G PRESCK 013044 RECELG= 000500 STATER 017299 TShESt= 197789 
2 = 6 RECTST= 000200 STCMD = TSNSO = 
MSG] 034606 PRILEV= 000054 EGACT 002440 STDATP 012306 TSNS1 = 000005 
MSGIO 035745 PRIMSG 030006 REGCK = 000001 STDNER= 000035 TSPCNT= 000000 
MSG14 036014 PRIORT 002416 REGEXP 0024 STK _ = 000001 TSPTAB= 010066 
MSG15 036053 PRITAB 021732 REGSCK 013664 STTK76 021176 TSPTHV= 000002 
MSG17 036124 PRIOO = 000000 REGS1 = 015036 SUDVCD 021014 TSPTNU= 
0 REGS2 = 000000 SUM 12654 TSSAVL= 177777 
REGS3 = 000000 SURGCK 014276 TSSEGL= 177777 
REGS4 = 000000 SUTSFG 020772 TSSIZE= 000016 
REGSS = 000000 SVCGBL= 000000 TSSUBN= 000000 
REGS6 = 000000 SVCINS= 177777 TSTAGL= 177777 
RESFLG= 040000 SVCSUB= 177777 TSTAGN= 010070 
RESTAR 021332 SVCTAG= 177777 TSTEMP= 000000 
REVC = 000000 SVCTST= 177777 TSTEST= 000044 
RGERNB 020166 SWREG 002332 G TSTSTM= 177777 
RGERTB 014706 SYFERR= 002000 TSTSTS= 000001 
RGETPT 014670 SYSERR 002456 TSSAU = 010014 
RGPRT = 000004 SSLSYM= 010000 TSSAUT= 010013 
RSC = 000000 TCMDCT 002670 TSSCLE= 010011 
MD = TFDCK 013342 TSSDAT= 010067 
RTBADR 014704 TGMS 010220 T$$DU = 010012 
= TKERCK 017516 TSSHAR= 010061 
RWELEC= TKPRT = 1 TS$HW = 010000 
RXCS_ 002350 TKSCFG 002510 TSSINI= 010010 
RACSR 002482 TN = 000044 TSSMSG= 010006 
RXDB_ 002352 TRACK 002374 TS$PC = 000002 
RXESR 002434 TRAP _ 022526 TSSPRO= 010001 
RXINIT= 040000 TRBIT = 000200 TSSPTA= 010066 
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SEG 178 
PARAMETER CODING MACRO M1200 14=DEC-82 16:33 PAGE 240-6 

SYMBOL TABLE 

XT13. 025236 XT20 027456 XT28 ©0316 XT35 (034144 XUWCH §=012014 
XT14 25456 xT21 027774 XT29 $3039 X736 034500 MWAIT 011632 
XT15 = 025604 xT2 030 xT 022714 X14 023032 XWRITE 011054 
XT16 §©026076 xT2 030424 xT 032352 XT5 023150 XXPG 12540 
XT17 =: 026400 XT24 0 xT31 032724 XT6 023334 XSALWA= 000000 
XT18 026746 XT25 031050 XT32. 0» 0333352 X17 023576 XSFALS= 000040 
xT19 =: 027302 XT26 031252 XT33 =: 033530 x18 023766 XSOFFS= 000400 
xT2 02 KXT27 =—-_- 031442 x 033724 x19 024204 XSTRUE= 000020 


- ABS. 037670 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 31264 WORDS ( 123 PAGES) 
DYNAMIC al WORDS ( 75 PAGES) 


ELAPSED TIME: 205: 
CNRXFA.BIN/DS :GBL/EN: AMA: ABS , CNRXFA.LST/CR/=SP/NL : CND:MD :BEX=SVC34/MLB, CNRXFA.MAC 
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